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CNIBAA.P11 10=DEC=82 15:35 SEQ 0002 
5675 .NLIST MC,MD,CND 
5676 “LIST ME 
5677 -ENABL ABS 
5678 ENABL _AMA 
2684 167400 $SwR=167400 
5686 TITLE MAINDEC™11 JCNIBA-A 

(1) :*COPYRIGHT 

(1) 3 *DIGITAL bod toment CORP. 

(1 ;*MAYNARD, MASS. 01754 

(1) ;SPROGRAN BY EDWARD C. BADGER 

(1) eS THIS PROGRAM WAS ASSEMBLED SING THE PDP=11 MAINDEC SYSMAC 

(1 ; *PACKAGE (MAINDEC=11=DZQAC=C3), JAN 19, 1977. 

(1) 000001 Stu=1 | 
5687 ZTHIS VERSION LAST EDITED = DEC, 1982 
5689 .SBTTL OPERATIONAL SWITCH SETTINGS 

ze 

(1) * SWITCH USE | 

( 1 ) e + SS a ee new ER SO ew EE Seem we 

(1) 4 15 HALT ON ERROR 

(1) ie 14 LOOP ON TEST 

(1) * 13 INHIBIT ERROR TYPEOUTS 

(1) 3 11 INHIBIT ITERATIONS 

(1) ie 10 BELL ON ERROR 

(1) * 9 LOOP ON ERROR 
si) * & LOOP ON TEST IN SWR<7:0> 
5691 .SBTTL TRAP CATCHER 
5692 
5693 000000 
5694 4 LL YNUSED LOCATIONS FROM 4-776 CONTAIN A ‘'.+2°* 

5695 + #AND PC,RO’’ SEQUENCE TO CATCH ILLEGAL INTERRUPTS, 

5696 AND | INTERRUPTS TO THE WRONG VECTOR. 

5697 S*LOCATION 0 CONTAINS A 0 TO CATCH IMPROPERLY LOADED 

5698 *VECTORS 
5708 000004 "24 | 
5709 000004 012066 000200 “WORD IOTRD,200 :HANDLE BUSS ERROR. 
5710 000174 2174 
5711 000174 000000 DISPREG:.WORD 0 r;SOFTWARE DISPLAY REGISTER. 

arle 000176 000000 SWREG: -WORD 0 T:SOFTWARE SWITCH REGISTER. 

5714 000100 000104 000200 000002 “WORD 104,200,2 z1F "B EVENT" ON Q-BUS IS 

5715 ONNECTED, WE NEED A WAY OF 

5716 000200 .=200 ZIGNORING [TS INTERRUPTS. 

3717 000200 000137 001422 MP START 

5719 .SBTTL BASIC DEFINITIONS 

(1) ZtINITIAL ADDRESS OF THE STACK POINTER *** 1100 eee 

(1) 001100 STACK= 1100 

(1) -EQUIV EMT,ERROR r:BASIC DEFINITION OF ERROR CALL 

(1) “EQUIV IOT. SCOPE S:BASIC DEFINITION OF SCOPE CALL 
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MAINDEC-11-CNIBA=A MAC 

CNIBAA.P11 10=DEC=82 15 
(1) 
(1) 
(1) 11 
(1) 000012 
(1) 000015 
(1) 000200 
a3 177776 
(1) 177774 
(1) 177772 
(1) 177570 
a3 177570 
38 170000 
(1) 000000 
(1) 000001 
(1) 00000 
(1) 00000 
(1) 000004 
(1) 000005 
(1) 0000 
(1) 000007 
(1) 00 
(1) 000007 
(1) 
(1) 
(1) 
(1) 000040 
(1) 000100 
(1) 000140 
(1) 000200 
(1) 000240 
(1) 0003 
(1) 000340 
(1) 
(1) 
(1) 00000 
(1) 040000 
(1) 020000 
(1) 010000 
(1) 004000 
(1) 002 
(1) 001000 
(1) 0004 
(1) 000200 
(1) 000100 
(1) 000040 
(1) 000020 
(1) 000010 
(1) 0004 
(1) 000002 
(1) 0001 
(1) 
(1) 
(1) 


Y1 
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1) 
15=DEC=82 16:09 PAGE 57-1 
BASIC DEFINITIONS 


ye, emma DEFINITIONS 


11 33 FOR HORIZONTAL TAB 

LF= 12 sCODE FOR LINE FEED 

CR= 15 [:CODE FOR CARRIAGE RETURN 

CRLF= 200 ::CODE FOR CARRIAGE JRETURN-L INE FEED 

PS= 17777 : PROCESSOR STATUS WOR 

.EQUIV PS,PSW 

STKLMT= 177774 s3STACK LIMIT REGISTER 
IRQ= 177772 [PROGRAM INTERRUPT REQUEST REGISTER 
SWR= 177570 3 S HARDWARE SWITCH REGIS TER 

DDISP= 177570 RDWARE DISPLAY REGISTE 

ae THE FOLLOWING ODT’ START ADDRESS FOR SBC 11/21 IS ADDED 
:*GENERAL PURPOSE REGISTER DEFINITIONS 

RO= 20 ::GENERAL REGISTER 

R1= Z1 33 ERAL REGISTER 

R2= % S:GENERAL REGISTER 

R3= % [GENERAL REGISTER 

R4= 14 S:GENERAL REGISTER 

R5S= <5 S:GENERAL REGISTER 

R6= 16 [GENERAL REGISTER 

R7= 17 S:GENERAL REGISTER 

SP= 26 s:STACK POINTER 

PC= 47 +:PROGRAM COUNTER 
:*PRIORITY LEVEL DEFINITIONS 

PRO= sO) :;PRIORITY LEVEL 0 

PRi= 40 [PRIORITY LEVEL 

PR2= 100 ::PRIORITY LEVEL : 

PR3= =: 140 ::PRIORITY LEVEL 

PR4= 200 ‘PRIORITY LEVEL 4 

PR5= 40 33PRIORITY LEVEL 5 

PR6= 00 :PRIORITY LEVEL 8 

PR7= 340 t:PRIORITY LEVEL 
:*'"SWITCH REGISTER’ SWITCH DEFINITIONS 

$w15= 100000 

SW14= 40000 

SW13= 20000 

SWi2= 10000 

Swil= 4000 

Sw10= 2000 

swo9= 1000 

SwO8= 400 

SwO7= 200 

Sw06= 100 

Sw05= 40 

Sw04= 20 

sw03= 10 

SWwO2= 4 

SwOl= 2 

swoO= 1 

-EQUIV SW09,SW9 

“EQUIV $WO8.SW8 

“EQUIV SWO7.SW? 


ee 
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CNIBAA.P11 10=DEC=82 15:35 BASIC DEFINITIONS SEQ 0004 

(1) .EQUIV $W06,SW6 
(1) sEQUIV $SWOS,SW5 
(1) -EQUIV SW04, 
(1) SEQUIV SWO3,SW3 
(1) SEQUIV SwWO2,sw2 
(1) -EQUIV $WO1,SW1 

(1) “EQUIV $W00,SWO 

(1) s*DATA BIT DEFINITIONS (BITOO TO B1T15) 
(1) 100000 BIT15= 100000 

(1) 040000 BIT14= 40000 

(1) 020000 BIT13= 20000 

(1) 01 BITi2= 10000 
(1) 004 BIT11= 4000 
(1) 002000 BIT10= 2000 
(1) 001 BITO9= 1000 
(1) 0004 BITO8= 400 
(1) 000200 BITO7= 200 
(1) 000100 BITO6= 100 
(1) 000040 BITOS= 40 
(1) 000020 BIT04= 20 
(1) 000010 BIT03= 10 
(1) BITO2= 4 
(1) 000002 BITO1= 2 
(1) 000001 BITOO= 1 
(1) .EQUIV B1T09,B81T9 
(1) “EQUIV BIT08.B1T8 
(1) -EQUIV B1T07,B1T7 
(1) “EQUIV Bi106.8116 
(1) -EQUIV BI1T05.B1T5 
(1) -EQUIV BIT04,B1T4 
(1) “EQUIV B1T03.B1T3 
(1) sEQUIV B1T02.BIT2 
(1) “EQUIV BITO1.BIT1 
(1) “EQUIV B1T00.BITO 
(1) s*BASIC “CPU TRAP VECTOR ADDRESSES 
(1) 000004 ERRVEC= 4 I T AND OTHER ERRORS 
(1) 000010 RESVEC= to RESERVED AND ILLEGAL INSTRUCTIONS 
(1) 000014 TBITVEC=14 BIT 
(1) 000014 TRIVEC= 14 t: TRACE TRAP 
(1) 000014 BPTVEC= 14 3 SBREAKPOINT TRAP (BPT) 
(1) 000020 IOTVEC= 20 :INPUT/OUTPUT TRAP (IOT) **SCOPE+* 
(1) 000024 PWRVEC= 24 +:POWER FAIL 
(1) 000030 EMTVEC= 30 36M MULATOR TRAP (EMT) **ERROR*® 
(1) 000034 TRAPVEC=34 3 TRAP’ TRAP 
(1) 000060 TKVEC= 60 : TTY KEYBO 
(1) 000064 TPVEC= 64 TTY 1 PRINTER VE ity 
(1) peeeee THE FOLLOWING BREAK VECTOR AND ef NE CLOCK VECTOR ARE INCLUDED 
(1) 000100 ikvEC= 100 CLOCK V 
(1) 000140 BRKVEC= 140 TBR EAK VECT one 

sh) 000240 PIRQVEC=240 + ROGRAM INTERRUPT REQUEST VECTOR 

5721 174100 ABASE= 174100 :VER:0 

5722 000320 AVECT1= 320 *VER:0 

5723 000200 APRIOR= 200 





— —— 
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CNIBAA.P11 10=DEC=82 15:35 BASIC DEFINITIONS SEQ 0005. 
5724 000001 $TN=1 
5725 
5706 .SBTTL ACT11 HOOKS 
(2) fF RRAAAAAAEAA AAA AEA EEEARAEAERAEAAEAAAAAARERERERAEEAAAAEAEEEEREEE 
(1) ‘HOOKS REQUIRED BY ACT11 
(1) 000204 SSVPC=. ZSAVE PC 
(1) 000046 =46 
(1) 000046 90705 SENDAD z21)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(1) 000052 000000 “WORD 0 2:2)SET LOC.52 TO ZERO 
mat) 000204 .=$SVPC t: RESTORE PC 
3728 001000 -=1000 
5730 .SBTTL APT PARAMETER BLOCK 
(2) FERRARA AAREAAAAREEAEEEEEERER EERE AAEEEEREEEEREREREEERAEREEREREEEE 
(1) iSer LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) FERRARA EEEEEEEEAAEEESEAEEEEEEEEAEEAAAAEREREEREEEREEAEEEEEREREEEE 
(1) 001000 -$X=. 3 ;SAVE CURRENT LOCATION 
(1) 000024 .=24 3 3;SET POWER FAIL TO POINT TO START OF PROGRAM 
(1) 000024 000200 200 + FOR apt START UP 
(1) 00004 .=44 | ::POINT TO APT INDIRECT ADDRESS PNTR. 
(1) 000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 
(1) 001000 .=.$X  :;RESET LOCATION COUNT 
(2) | quutineieeranllbebaseukateateseserenteeshsinineeunnnanseneenel 
(1) [SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
aa) S INTERFACE SPEC. 
(1) 001000 SAPTHD: 
(1) 001000 SHIBTS: .WORD 0 ::TwO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(1) 001002 001174 SMBADR: .WORD S$MAIL ;:ADDRESS OF APT MAILBOX (BITS 0-15) 
(1) 001004 000074 STSTM: .WORD 60. 7:RUN TIM OF LONGEST TEST 
(1) 001006 000170 SPASTM: .WORD 120. 3 RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(1) 001010 000170 SUNITM: .WORD TIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
52 001012 000031 WORD Sf TEND-Shates Z;LENGTH MAILBOX-E TABLE (WORDS) 
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‘CNIBAA.P11 —-10=DEC=82 15:35 COMMON TAGS SEQ 0006 
| 5732 .SBTTL COMMON TAGS 
(2) J RAAAAAAAAAAAEEAEEARAEEEE ETAT AEEAAAEEAAEAARERERAERAEAEAAREREEEEEREE 
1 a ZSTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
| CV S*USED IN THE PROGRAM. 
1 a 001100 .=1100 
(1) 001100 SCMTAG: 33START OF COMMON TAGS 
(1) 001100 0 
(1) 001102 = 000 STSTNM: .BYTE 0 :CONTAINS THE TEST NUMBER 
(1) 001103 000 SERFLG: .BYTE 0 3: CONTAINS ERROR FLAG 
(1) 001104 000000 SICNT: .WORD 0 Z:CONTAINS SUBTEST ITERATION COUNT 
(1) 001106 SLPADR: .WORD 0 3: CONTAINS SCOPE LOOP ADDRESS 
(1) 001110 000000 $LPERR: .WORD 0 :CONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 00 SERTTL: .WORD 0 S:CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 = 000 SITEMB: .BYTE 0 3:CONTAINS ITEM CONTROL BYT 
(1) 001115 001 SERMAX: .BYTE 1 SECONTAINS MAX. ERRORS. PER. TEST 
(1) 001116 SERRPC: . 0 ::CONTAINS PC OF LAST ERROR, INSTRUCTION 
(1) 001120 000000 $GDADR: .WORD 0 : CONTAINS ADDRESS OF ‘GOOD’ DAT 
(1) 001122 SBDADR: . 0 SECONTAINS ADDRESS. OF *BAD® DATA 
(1) 001124 000000 S$GDDAT: .WORD 0 Z:CONTAINS "COOD* DATA 
(1) 001126 SBDDAT: .WORD 0 33 CONTA ATA 
(1) 001130 : 0 ERESERVED--NOT TO BE. USED 
(1) 001132 000000 -WORD 0 
(1) 001134 000 $AUTOB: .BYTE 0 s:ANTOMATIC MODE INDICATOR 
(1) 001135 000 SINTAG: .BYTE 0 ZZINTERRUPT MODE INDICATOR 
(1) 001136 000000 “WORD 0 
(1) 001140 177570 SWR: WORD DSWR i ZADDRESS OF SWITCH REGISTER 
(1) 001142 177570 DISPLAY: .WORD DDISP DRESS OF DISPLAY REGISTER 
(1) 001144 177560 TKS: 177560 Try KBD STATUS 
(1) 001146 177562 $TKB: 177562 33 TTY KBD BUFFER 
(1) 001150 177564 $TPS: 177564 ZTTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177566 3: TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 000 $NULL: .BYTE 0 :CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS: .BYTE 2 
(1) jCONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 001156 = 012 sriuc: .evte 13 sINSERT FILL CHARS. AFTER A “LINE FEED" 
(1) 001157 000 S$TPFLG: BYTE 0 ii STERMINAL AVAILABLE’ FLAG (B1T<07>=0=VES) 
(1) 001160 000000 STIMES: NUMBER OF ITERATIONS 
(1) 001162 000000 SESCAPE :0 :TESCAPE ON cRROR ADDRESS 
(1) 001164 177607 000377 SEELL:  .ASCIZ <207><377><377> 33 CODE FOR BELL 
(1) 001170 = 077 $QUES: ASCII QUESTION MARK 
(1) 001171 015 SCRLF: <ASCII1 <i5> CARRIAGE RETURN 
(1) 001172 000012 $LF:  .ASCIZ <12> FEED 
(2) Seeeeeeeeeeeeeeedeeeretereteeeenaeeeeeeenenereeereeeeeereeeeerer 
(2) ‘SBTTL APT MAILBOX-ETABLE 
(3) PPAAAALASALALEALALALAL AAA AAA ALAA A RAAT REE RR AR AR AAD DD DD GS 
(2) ° EVEN 
(2) 001174 SMAIL: 3 ;APT MAILBOX 
(2) 001174 000000 SMSGTY: .WORD  AMSGTY {MESSAGE TYPE CODE 
(2) 001176 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
(2) 001200 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
(2) 001202 000000 $PASS: WORD APASS :PASS COUNT 
(2) 001204 000000 SDEVCT: WORD —ADEVCT 3 :DEVICE COUNT 
(2) 001206 000000 SUNIT: .WORD AUNIT 31/0 UNIT NUMBER 
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\CNIBAA.P11 = 10=DEC=82 15:35 MAILBOX=E TABLE SEQ 0007 
| 
/ (2) 001210 000000 SMSGAD: .WORD AMSGAD ;; MESSAGE ADDRESS 
(3) 001212 000000 SMSGLG: .WORD AMSGLG i IMESSA GE LENGTH 
(2) 001214 SETABLE: T ENVIRONMENT TABLE 
(2) 001214 000 SENV:  .BYTE AENV :  UVIRONMENY BYTE 
| 2) 001215 000 SENVM: .BYT 
| @ » ENVIRONMENT MODE BITS 
(2) 001216 000000 $SWREG: .WORD ASWREG ;;APT SuITCH REGISTER 
| 3) 001220 000000 SUSWR: .WORD AUSWR ::USER SWITCHES 
| 2) 001222 000000 SCPUOP: .WORD ACPUOP ::CPU 1¥PE OPT Lows 
(2) 3* Bits We1iscPu T YPE 
| 3) ye 1/04=01, 11/05=02,11/20=03,11/40=06, 11/45=05 
| (2) it N770= 06. * PDQ=07,0=10 
| (2) * BIT 10=REAL TIME CLOCK 
| @) * BIT S=FLOATING POINT PROCESSOR 
/  @) * BIT 8=MEMORY MANAGEMENT 
(2) 001224 000 S1: .BYTE AMAMS1 ;;:HIGH ADDRESS.M.S. BYTE 
(2) 001225 000 SMTYP1: .BYTE AMTYP1 zimen. TYPE ,BLK#1 
(2) * MEM. pe Brit -- (HIGH BYTE) 
(2) it Pe BO NSEC CORE=001 
(2) 8 300 NSEC BIPOLAR=002 
(2) = 500 NS mOs=005 
(2) 001226 000000 $MADR1: .WORD AMADR1 ;;:HIGH ADDRESS,BL 
(2) ° Bem NAST ADDR es BYTES. THIS WORD AND LOW OF “TYPE ABOVE 
(2) 001230 000 $2: .BYTE AMAMS z:MIGH ADDRESS,M.S. BYTE 
(2) 001231 000 $MTYP2: .BYTE AMTYP TYPE ,BLKA 
(2) 001232 000000 SMADR2: .WORD AMADRE [:MEM.LAST ADDRESS, BLK#2 
(2) 001234 000 SMAMS3: .BYTE AMAMS 3 sHIGH ADDRESS.M.S.BYTE 
(2) 001255 000 SMTYP3: .BYTE AMTYP3 ::MEM.TYPE,BLK 
(2) 001236 000000 SMADR3: .WORD AMADR z3RER. LAST ADDRESS ,BLK#3 
(2) 001240 000 S4: .BYTE AMAMS4 ::HIGH ADDRESS,M.S.BYTE 
(2) 001241 00C SMTYPG: [BYTE AMTYPG 2:MEM. TYPE .BLKAG 
(2) 001242 000000 R4: . +: MEM.LAST ADDR ESS BLKAG 
(2) 001244 000320 SVECT1: .WORD AVECT1 ::INTERRUPT YECTOR#1,BUS PRIORITY#1 
(2) 001246 000000 SVECT2: .WORD AVECT2 :: INTERRUPT VECTOR#2BUS PRIORITYA2 
(2) 001250 174100 SE: WORD ABASE 
(2) Z:BASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001252 000000 SDEVM: ‘WORD ADEVM ;;DEVICE MAP 
(2) 001254 000000 $CDW1: WORD ACDW1  ::CONTROLLER DESCRIPTION WORDA1 
(2) 001256 SETEND: 


co 
| 
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(1) .SBTTL ERROR POINTER TABLE 
(1) :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
(1) :*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
(1) ;*LOCAT ION $I7EMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE | Is PERTINENT. 
(1) : ®NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SER 
(1) : *NOTE2: EACH ITEM IN THES TABLE CONTAINS 4 POINTERS FAPLAINED AS FOLLOWS: 
(1) 3* EM :POINTS TO THE ERROR MESSAGE 
(1) 3* DH ; POINTS TO THE DATA HEADER 
(1) * DT NTS TO THE DAT 
(1 * DF tIPOINTS TO THE DATA FORMAT 
(1) 
(1) 001256 SERRTB: 
5733 
5737 
3738 sITEM 1 
5740 001256 012216 EM1 318S_FUNCTION ERROR 
5741 001260 012437 DH1 “TEST ERRPC IB ADDR 
5742 001262 012640 DT1 :STESTN, SERRPC, IBS 
5743 001264 012710 DFO L NUMBERS ARE IN OCTAL FORM. 
2745 s1TEM 2 
5747 001266 012244 EM2 18D {FUNCTION ERROR 
5748 001270 012437 DH1 “TEST ERRPC IB ADDR 
5749 001272 012640 DT1 i STESTN. SERRPC 1BS 
3730 001274 012710 DFO L NUMBERS ARE IN OCTAL FORM. 
3738 r1TEM 3 
5754 001276 012272 EM3 31BS_DATA ERROR 
5755 001300 012505 DH3 ERRPC GOOD BAD 
5756 001302 012654 DT3 ?STESIN, SERRPC SGDDAT, SBDDAT 
5757 001304 012710 DFO TALL NUMBERS ARE IN OCTAL FORM. 
5759 sITEM OG 
5760 
5761 001306 012314 EMG :18D_DATA ERROR 
5762 001310 012505 DH3 ST ERRP BAD 
5763 001312 012654 DT3 iSTESTN. SéRRPC Scpsar SBDDAT 
5764 001314 012710 DFO L NUMBERS ARE IN OCTAL FORM. 
3766 rITEM 5 
5768 001316 012336 EMS J 1BS/IBD ADDRESS ERROR 
5769 001320 012542 DHS “TEST ERROR PC ADDRESS 
5770 001322 012666 p75 :STSTNM, SERRPC, IBS 
5771 001324 012710 DFO L NUMBERS ARE IN OCTAL FORM. 
orf? s1TEM 66 
5775 001326 012366 EMG zIBWC/IBCA DATA ERROR 
5776 001330 01250 DH [TEST ERRPC GOOD BAD 


am ee a 


eee 
MAINDEC=11=CNIBA-A 
CNIBAA.P11 10=DEC-82 15:35 


a 
ge88 92 


5 
5867 001400 000354 


5871 001402 000322 
001 


001422 


(1) 

(1) 

(1) 001422 012706 001100 
(1) 00502 

(1) 001430 022706 001140 
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ERROR POINTER TABLE 


DT3 ISTESTN, SERRPC ,SGDDAT, SBDDAT 

DFO TALL NUMBERS ARE IN OCTAL FORM. 
sITEM 7 

EM7 s INTERRUPT ERROR 

DH? RRP FROM ADDR. 
DT7 Tem, #ERRPC, TRTO, TRFRO 

DFO TALL NUMBERS ARE IN OCTAL FORM. 


-SBTTL REG ADDRESS AND COMMON T. 


AGS 
sWARNING IF DEVICE # IS AT DIFFERENT ADDRESS OR VECTOR 
D0 NOT PATCH THESE LOCATIONS = SEE PROGRAM DOCUMENTATION. 


.WORD ABASE  ;>NO €: CONTROL AND STATUS REGISTER. 
WORD ABASE +2 :>PATCHES REGISTER. 

-WORD  ABAS sADDRESS <peSERVED FOR 

“WORD FUTURE USE 


ABAS Sf 6 
;WORD AVECT1 ;>ALLOWE eb 
WORD AVECTI +4 HERE ! 


: WOR 
: .WORD AVECT1+34 
;VECTOR ADDRESSES +2 LOCATIONS. 


WORD AVECT1+2 sNOTE: 
WORD AVECT1+6 3 
WORD AVECTI+12 : 
WORD AVECT1+16 : 
WORD AVECT1+22 : 
WORD AVECT1+26 : 
WORD AVECT1+32 : 


WORD AVECT1+36 


-SBTTL PROGRAM START 


i Mh at | wT TAGS 
THE COMMON TAGS (SCMTAG) AREA 

MOV —a R6 

CLR (R6)+ 

CMP #SWR,R6 > ;DONE? 


<;VECTOR ADDRESS. 
<: VECTOR ADDR. +4. 


DO NOT ATTEMPT TO PATCH 
THESE LOCATIONS IF A VECTOR 
VARYIES ;, ALTER LOCATION 


IF TEST MODULE VECTOR IS 
DIFFERENT, YOU MUST Shree, 
LOCATION “‘VECTA2:* 


ssFIRST LOCATION TO BE CLEARED 
3:CLEAR MEMORY LOCATION 


SEQ 0009 


am i + ee OC ee ee me 


K ! 
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(1) 001434 001374 BNE 6 LOOP BACK IF 
' (1) 001436 «012706 001100 #STACK,SP SETUP THE track POINTER 
| 4) s INITIALIZE A FEW VECTOR ORS 
| (1) 001442 012737 007450 000020 WSSCOPE ,AMIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
| (1) 001450 012737 000300 000022 MOV #PR6,@#IOTVEC+2 =: :LEVEL 
(1) 001456 012737 007126 000030 MOV SSE RAOR  DEHITVEC’ SCENE“ VECTOR FOR ERROR ROUTINE 
(1) 001464 012737 000300 000032 omen #PR6,AWEMTVEC+2 s:LEVEL 6 
(1) 001472 012737 012136 000034 MOV #STRAP ,a#TRAPVEC gTRAP VECTOR FOR TRAP CALLS 
(1) 001500 012737 000300 000036 MOV #PR6, AFTRAPVEC+2; steve 
(1) 001506 012737 011710 000024 MOV #SPWRON, a#PWRVEC POWER FAILURE VECTOR 
(1) 001514 012737 000300 000026 MOV PPRO DAPURVECYD 32 
(1) 001522 005037 001160 CLR STIMES act TFTALIZE NUMBER OF ITERATIONS 
(1) 001526 005037 001162 CLR SESCAPE CLEAR THE ESCAPE ON ERROR ADDRESS 
(1) 001532 112737 000001 001115 MOVB #1,$ERMAX TALLOW ONE ERROR PER TEST 
(1) 001540 012737 001540 001106 MOV #. «SLPADR 33 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
(1) 001546 012737 001546 001110 MOV #. .SLPERR E ERROR LOOP ADDRESS 
(2) zsSIZE FOR A HARDWARE | SWITCH REGISTER. IF NOT FOUND OR I 
(2) T:EQUAL TO A "'=1'', SETU A SOFTWARE SWITCH REGISTER. 
(2) 001554 013746 000004 MOV awERR EC csp) 3 ERROR VECTOR 
(2) 001560 012737 001614 000004 MOV #64$,a#ERRVEC 3:SET UP ERROR VECTOR 
(2) 001566 012737 177570 001140 MOV #0S Uh’s SUR Z3SETUP FOR A HARDWARE SWICH REGISTER 
(2) 001574 012737 177570 001142 MOV AST DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
(2) 001602 022777 177777 177330 CMP #-1,aSuR [TRY TO REFERENCE HARDWARE SWR 
(2) 001610 001012 BNE 668° 3 TBRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) : THE HARDWARE SWR IS NOT = -1 
(2) 001612 000403 BR 65$ ¢{BRANCH IF NO T T 
(2) 001614 012716 001622 64$: MOV #65$, (SP) +:SET UP FOR TRAP RETURN 
(2) 001620 000002 RTI 
(2) 001622 012737 000176 001140 65$: MOV HSWREG, SWR z:POINT TO SOFTWARE SWR 
(2) 001630 012737 000174 001142 MOV #DISPREG, DISPLAY 
(2) 001636 012637 000004 66$: MOV (SP)+,a#ERRVEC ;:RESTORE ERROR VECTOR 
(2) 001642 005037 001202 CLR SPASS z:CLEAR PASS COUN 
(2) 001646 132737 000200 001215 BITB #APTSIZE,SENVM gETEST USER SIZE UneR APT 
(2) 001654 001403 BEQ USE NON-APT SWITCH 
(2) 001656 012737 001216 001140 — MOV #SSWREG, SWR ENO USE APT SWITCH REGISTER 
5887 001664 012737 012066 000004 MOV #IOTRD,ERRVEC ;SET TO HANDLE BUS ERRORS. 
5888 00167 000200 000006 MOV #200, ,ERRVEC+2 
90 001 001250 001346 MOV S$BASE, IBS :GET BASE ADDR. 
001 001346 001350 MOV 18S, 18D [FIX DATA BUFFER= 
001 000002 001350 ADD #2, 18D *CSR+2 
001350 001352 MOV 18D, [BWC 
02 001352 ADD #2, [BWC 
001352 001354 MOV IBWC, IBCA 
0002 001354 ADD 2, 1BCA 
001244 001356 MOV SVECT1,VECTA | ;GET VECTOR ADDR. 
70000 001356 BIC #170006,VECTA :STRIP JUNK 
001346 012646 MOV 1BS,1BS 
001350 012650 MOV 18D; IBDA 
001366 001370 MOV 1BS2, IBD2 
02 001370 ADD #2, 18D 
001356 001360 MOV VECTA VECTB 
001360 ADD #4, VECTB 
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[CNIBAA.P11  10-DEC=82 15:35 INITIALIZE THE COMMON TAGS SEQ 0011 
5905 002032 013737 001360 001362 MOV VECTB. vECTC 
5906 002040 737 000004 00136 ADD 
5907 002046 013737 001362 001364 MOV vecve. VECTD 
5908 002054 062737 000004 001364 ADD #4, VECTD 
002062 013737 001372 001374 MOV VECTAS VECTB2 
5910 002070 062737 004 001374 ADD #4, VECTB 
5911 002076 013737 001374 001376 MOV VECTB2,VECTC2 
5912 002104 062737 000004 001376 ADD #6, 
5913 002112 013737 001376 001400 MOV VECTC2,VECTD2 
3914 002120 062737 000004 001400 ADD #4, VECTD2 
5916 002126 013737 001356 001402 MOV VECTA, PRA zSET UP VECTOR+2 ADDRESSES. 
5917 002134 062737 000002 001402 ADD #2,PRA 
5918 002142 013737 001402 001404 MOV PRA, PRB 
5919 002150 062737 000004 001404 ADD #4, PRB 
5920 002156 013737 001404 001406 MOV PRB, PRC 
5921 002164 062737 000004 001406 ADD #4,PRC 
5922 002172 013737 001406 001410 MOV PRC,PRD 
5923 002200 062737 000004 001410 ADD #4, PRD 
5924 002206 013737 001372 001412 MOV VECTA2,PRA2 
5925 002214 062737 000002 001412 ADD #2,PRA2 
5926 002222 013737 001412 001414 MOV PRA2, PRB2 
5927 002230 062737 001414 ADD PRB2 
5928 002236 013737 001414 001416 MOV PRD” PRC2 
5929 002244 062737 001416 ADD #4 ,PRC2 
5930 002252 013737 001416 001420 MOV PRC2,PRD2 
5931 002260 062737 000004 001420 ADD #4, PRD2 
5932 002266 RSTART: 
5933 + /-RESV= 
(1) 002266 013777 001402 177062 MOV PRA, @VECTA ;/RESTORE VECTOR FOR 
BSH) 002274 012777 004700 177100 MOV #4700,aPRA — :/ ILLEGAL INTRO. 
(1) 002302 013777 001404 177050 MOV PRB, @VECTB ;/RESTORE VECTOR FOR 
562 002310 012777 004700 177066 MOV #4700, aPRB ILLEGAL INTRO. 
(1) 002316 013777 001406 177036 MOV PRC, aVECTC ; :/mestORE VECTOR FOR 
562 002324 012777 004700 177054 MOV #4700, aPRC iL LLEGAL INTRO. 
(1) 002332 013777 001410 177024 MOV PRD, a@VECTD tami’ VECTOR FOR 
(1) 002340 012777 004700 177042 MOV #4700, GPRD :/ILLEGAL INTRO. 
5937 -SBTTL By | PROGRAM NAME 
(1) 33;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
(1) 002346 005227 177777 INC #-1 z:FIRST TINE? 
(1) 002352 001033 BNE 648. i ]BRANCH IF 
(1) 002354 104401 002422 YPE PE ASCIZ WO TRING 
(2) .SBTTL GET vawue’ oR SOF TWARE sbiten REGISTER 
(2) 002360 005737 000042 TST ang2 ;2ARE WE RUNNING UNDER XXDP/ACT? 
(2) 002364 001012 BNE aes : SBRANCH I 
(2) 002366 123727 001214 000001 CMPB sd SENV,, #1 33 ARE WE RUNNING UNDER APT? 
(2) 002374 001406 BEQ 66$ * BRANCH 
(2) 002376 023727 001140 000176 CMP SWR, #SWREG :ESOF TWARE. SWITCH REG SELECTED? 
(2) 002404 001005 BNE 67$ ‘BRANCH IF NO 
(2) 002406 104406 GTSWR S:GET SOFT-SWR SETTINGS 
(2) 002410 000403 BR 67S 
(2) 002412 112737 000001 001134 668: MOVB «#1, SAUTOB z:SET AUTO-MODE INDICATOR 
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[CNIBAA.P11  10-DEC=82 15:35 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0012 
(1) 002420 000410 BR 64$ GET OVER THE ASCIZ 
1 a -:65$: _ASCIZ <CRLF>#MD11-CNIBASAM<CRLF> 
| C1) 002442 b4s: 
| $938 002442 000005 RESET 
5940 PURPRAR RARE EARREAERE ET EEA AREER RAAARAAAAAAREAA RATER AREA eee 
| °(3) TEST 1 #TEST THE ADDRESSABILITY OF THE 18S, IBD REGISTERS 
j (3) FARRAR AERE REAR E EEE EEE AAREREEAEEEREEEAEEEREREEEEEKERES 
(2) 002444 000240 ‘$11: NOP 
(1) 002446 012737 000050 001160 Mov «#50, STIMES ::D0 50 ITERATIONS 
gil 002654 012737 002506 001106 MOV —s-#1${$LPADR <ISET SCOPE LOOP ADDRESS 
5942 002462 012737 000001 001102 Movs #1, STSTNM SET TEST #1. 
5943 002470 012737 000001 001200 MOV so #1. STESTN “DON'T FORGET APT! 
5944 002476 012737 002506 001710 MoV «#18, SLPERR 
5946 002504 013746 000004 1$: MOV _—CERRVEC.-(SP) «SAVE CONTENTS OF ADDR. 4 
5947 002510 012737 002536 000004 MOV —« #2$, ERRVEC ier TIME-OUT TRAP VECTOR TO HANDLE 
5948 ‘IN CASE WE TIME OUT WHEN 
5949 ‘WE ADDR. THE IBV-11 
5951 002516 005777 176624 TST ales ADDR THE IBS, IF_NO RESPONSE, 
5952 tWILL TRAP TO’ 2$ FROM HER 
5953 002522 012737 002544 000004 MOV —-#3$, ERRVEC SUHANGE FOR ADDRESSING THE IBD REG. 
5955 002530 005777 176614 TST alle ZADDR THE IBD REG 
5956 cr LL TRAD 1038, FROM HERE IF BAD. 
5957 002534 000406 ) BR 4$ 
5958 002536 2s: 
gl, 902538 062706 000004 ADD #4, SP :/ADD #4 TO STACK POINTER. 
72 $SSSSS$S$$$S>>> ERROR <<<S$$$S$SSSSSS 
a) 
(1) 002542 104005 ERROR 5 ;/MODULE FAULT DETECTED: 
5960 ‘IBS REGISTER COULD NOT BE 
596 S ADDRESSED 
:: SS$SSSSSSS“** ERROR “**SSSSSSSSSS 
5963 002544 3$: 
gil) 902544 062706 000004 ADD #4, SP :/ADD #4 TO STACK POINTER. 
+: $$$$$$S$$$>>> ERROR <<<$$$$SSSSSS 
a) 
(1) 002550 104005 ERROR 5 ;/MODULE FAULT DETECTED: 
5965 S ADDRESSED 
jgSssssssssnse ennon “--ssssssssss 
$967 002552 012637 000004 4$: (SP)+,ERRVEC RESTORE CONTENTS OF LOC 4. 
(1) 002556 012746 000000 mov —s- #0, = (SP3 °/SET CPU PRIORITY ON RETURN 
(1) 002562 012746 002570 MOV  - #64$,-(SP) °/SHOW RETURN ADDRESS 
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002566 
002570 


002570 
002572 
002600 
002604 
002612 


002616 


002624 
002630 


002632 
002632 


002636 


002640 


002642 
002642 


002646 


002650 
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000002 


000004 
012737 
013746 
012737 
005777 
012737 
005777 
000407 


062706 


104005 


000403 


062706 


104005 


012637 


000010 
000004 

002632 
176534 
002642 
176524 


000004 


000004 


000004 


RTI 
64$: 


N 1 
See -82 16:09 PAGE 57-11 
*TEST THE ADDRESSABILITY OF THE IBS, IBD REGISTERS 


3/CAUSE A RETURN (PUTS NEW STATUS 
3/IN STATUS REG.) 


FERRARA ERA REREREEEERERE EEE EERE EEEEREREREREEREEEEEREREREEREREE 


SATEST 2 


*TEST THAT BASE ADDRESSES +4,+6 RESPOND WHEN ADDRESSED 


$ EVEN THOUGH THE BASE ADDRESS +4 AND +6 ARE NOT USED, 
3 * THE IBV11A SHOULD RESPOND TO THEM 


SNE, + 


i$12: SCOPE 
001160 MOV 
MOV 
000004 MOV 
TST 


000004 MOV 


TST 

BR 
1$: 

ADD 


#10,$TIMES ; 


ERRVEC,=(SP) 


#1$,ERRVEC 3SET 


alBwe 


#2$,,ERRVEC 
aIBCA 
3$ 


#4,SP 


:D0 10 ITERATIONS 


SAVE CONTENTS OF ADDR 4. 

TIME OUT TRAP gk TO HANDLE 
zIN CASE WE TIME OUT WHEN WE 
ADDRESS THE IBV-11 ADDRESSES +4,+6. 
TEST BASE ADDRESS +4, IF NO RESPONSE 
;WILL TRAP TO 1$ FROM HERE 


CHANGE FOR ADDRESSING +6 ADDR. 


sADDR THE +6 ADDR. = TRAP IF BAD. 
CONTINUE IF GOOD. 


:/ADD #4 TO STACK POINTER. 


7 SS$$S$$SS$$>>> ERROR <<<S$$SSSSSSSS 


ERROR 


5 


3/MODULE FAULT Pag ae 
ADDR+4 COULD NO 


;BASE 
;BE ADDRESSED. 


3; $SS$SS$SS$°** ERROR “**SSSSSSSSSS 
BR 3$ 


2s: 
ADD #4,SP 7/ADD #4 TO STACK POINTER. 
72 S$S$S$SSSSSSE>>> ERROR <<<S$SSSSSSSSS 
ERROR § 3/MODULE FAULT DETECTED: 
Bare wR "GO CuY WO? 
‘Be AppRESseo. 
7 SSSSSSSEEE* '* ERSOR ““*SSSSSSESESS 
3$: 


MOV (SP)«,- P&VEC ZRESTORE CONTE ATS (F Luc 4 


SEQ 0013 
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MAINDEC- | 
CNIBAA.P11 10=DEC=82 15:35 T2 *TEST THAT BASE ADDRESSES +4,+6 RESPOND WHEN ADDRESSED SEQ 0014 | 
Sane FF AAAAAAAAEAAAAAAERAR EEA EEREEERERERAREREREEEEREREEEREREEEEREEEE 
(3) S*TEST 3 *TEST THAT IBS IS CLEAR AT INIT OF TESTING 
( ) he ggagea = se mart cette te a tact ec it ante art 
(2) 002654 000004 813: SCOP 
(1) 002656 012737 000001 001160 MOV #1, STIMES 2:00 1 ITERATION 
£009 002664 000005 RESET rISSUE SYSTEM INIT. 
6011 002666 005037 001124 CLR SGDDAT sEXPECT ZERO CSR. 
6012 002672 017737 176450 001126 MOV a1BS,$BDDAT SREAD CSR. 
6013 002700 001401 BEQ TST4 33 
6014 
72 SS$SSSS$$SS>>> ERROR <<<S$SSSSSSSSS 
(1) 
(1) 002702 104003 ERROR 3 3/MODULE FAULT DETECTED: 
6015 318S NOT CLEAR ON INT. 
6017 rSSS$$SSSS$S4°* ERROR “““SSSSSSSSSS 
6018 FRERRAERAAEREREAAEAEEEEREEEEAEEREKEAEREEEREREAREEREREREREREREEEREE 
(3) tSTEST 4 *TEST THAT IBD IS CLEAR AT INIT OF TESTING 
(3) SREAAAAAEKEKEAAEAAAEAEAEAEAAEAAAAAAAAERAAARAERAARARARERAAEEREEEEEEERE 
(2) 002704 000004 iS14: SCOPE 
ASH 002706 012737 000001 001160 MOV #1,STIMES 7:00 1 ITERATION 
6020 002714 000005 RESET yISSUE SYSTEM INITIALIZE. 
6022 002716 005037 001 124 CLR SGDDAT sEXPECT ZERO CSR. 
6023 002722 117737 176422 001126 MOVB aIBD,$BDDAT TREAD DBR 
6024 002730 001401 BEQ TSTS 33 
6025 
1:S$$SS$$S$$$>>> ERROR <<<$$$SSSSSSS 
(1) 
(1) 002732 104004 ERROR 4 s/MODULE FAULT DETECTED: 
6026 318D NOT CLEAR ON INIT. 
7 :S$S$$SS$$E$°** ERROR “**SSSSSSSSSS 
ras 
6036 FRARAAEAEAEAAAHEEAEAEEEEERERARE EEE AEAEEEEEEAAERERAREREREAEEEREEEE 
(3) tS TEST 5 *TEST THAT BASE ADDRESSES +#4,+6 RETURN ZERO WHEN READ 
(4) + BASE ADDRESS +4 AND +6 SHOULD RETURN A ZERO WHEN 
(a) *READ, IN THIS TEST WE WILL TRY THAT. 
(3) se catia adalat eal eal aeallanidied ania 
(2) 002734 000004 1815: SCOPE 
(1) 002736 012737 000010 001160 MOV #10, STIMES 7:00 10 ITERATIONS 





> 
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CNIBAA.P11 10=DEC-82 15:35 15 *TEST THAT BASE ADDRESSES +4,+6 RETURN ZERO WHEN READ SEQ 0015 
6037 | 
6038 002744 005037 001124 CLR SGDDAT ZEXPECT ZERO RETURN 
6039 002750 017737 176376 001126 MOV @IBWC,SBDDAT READ BASE ADDRESS+4 
6040 002756 001402 BEQ 1$ SIF ZERO = GOOD. 
6041 
sS$$S$$$SS$$>>> ERROR <<<S$$$$SSSSS$ 
(1) 
(1) 002760 104006 ERROR 6 z/MODULE FAULT DETECTED: 
6068 3 SHOULD HAVE READ BACK ZERO FROM 
604 :THIS ADDR. 
zssssssssss*** ERROR ***SS$SSSSSSS 
6045 002762 000405 aR ST6 33 
6047 002764 017737 176364 001126 1S: MOV @IBCA,SBDDAT  ;READ BASE ADDR+6, SHOULD BE ZERO 
6048 002772 001401 BEQ TST6 $3 
6049 
sz$SSSSSS$S$S>>> ERROR <<<S$S$SSSSSSSS 
(1) 
(1) 002774 104006 ERROR 6 : /MODULE af Auer DETECTED: 
6050 :SHOULD HAVE READ BACK ZERO FROM 
6051 [BASE ADDR+6. 
— 1 :S$$SS$$S$$$°°* ERROR “*“SSSSSSSSSS 
6054 s3 SRAEAEAAAAAEAAEAEAEAREAEREAEREAAEAAAEAEAAEAAREAAEAAAEAEREEEREREERAEREE 
(3) S*TEST 6 *TEST THAT WE CAN SET TCS, TCS SETS CMD 
(3) + RERRREREREREEHEREERERETE CHAAR EAERAREEERRA ERA RATER AE eee 
(2) 002776 000004 TST6: SCOPE 
3 
6056 003000 005077 176342 CLR ICLEAR CLR 
6057 003004 052777 000001 176334 BIS 4B110,a *SE 
6058 003012 052737 002001 001124 BIS mB1TO/BITIO, SGDDAT jEXPECT ONLY TCS AND CMD TO SET 
6059 003020 017737 176322 001126 MOV a1BS,$BDD :READ THE 
6060 003026 023737 001126 CMP SGDDAT SBDDAT 3D1D TCS AND CMD SET? 
6061 003034 000402 BR 1$ :YES = CONTINUE 
6062 
1 :S$$S$$$SS$$>>> ERROR <<<$$$SSSSSS$ 
(1) 
(1) 003036 104003 ERROR 3 :/MODULE FAULT DETECTED: 
6063 :TCS AND/OR CMD FAILED TO SET 
> :$$$$S$$S$$°** ERROR “**SSSSSSSSSS 
6065 003040 000412 BR TST7 33 
oe? 003042 042777 000001 176276 1%: BIC #8170, a1BS :CLEAR TCS. 
6068 003050 005037 001124 CLR SGDDAT sEXPECT TCS AND CMD TO CLEAR 
6069 003054 017737 176266 001126 MOV @18S,$BDDAT SREAD IBS, DID THEY CLEAR? 
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CNIBAA.P11  10=DEC=82 15:35 16 “TEST THAT WE CAN Set TCS, TCS SETS CMD SEQ 0016 
6071 
sr SSSSS$SSS$S>>> ERROR <<<S$S$SSSSSS$S 
(1) 
(1) 003064 104003 ERROR 3 :/MODULE FAULT DETECTED: 
6072 ‘TCS AND/OR CMD FAILED TO CLEAR. 
6074 1 :SSSS$$S$SS°°* ERROR **“SSSSSSSSSS 
6075 3 3 REAAAEEEAEAAAAEAAAEEEAEEEAAAEEAEAAEAEAEAEAEREEAEAEAEAEEEEKREREEEREEE 
(3) :*TEST 7 *TEST THAT EOP WILL SET 
(3) SRERERAAAAAARERAEREEEEEEREREEEEEAEREREREEEEEEEEEERAREEEEEEREERERE 
(2) 003066 000004 $17: SCOPE 
sie 
6077 003070 005077 176252 CLR ales sCLEAR CSR. 
6078 003074 052777 9000 02 176244 BIS #B1T1,a1BS 
6079 003102 012737 900008 001124 MOV #B1T1 SGDDAT ZENPECT ONLY EOP TO SET. 
6080 003110 017737 176232 001126 MOV @1BS,$BDDAT sREAD IBS 
6081 003116 023737 001124 001126 CMP ScDDAT SBDDAT ‘DID EOP SET? 
6082 003124 0017402 BEQ 1$ SYES = CONTINUE 
6083 
- s2$$$$$$$$$$>>> ERROR <<<$$$SSSSSSS 
1) 
(1) 003126 104003 ERROR 3 :/MODULE FAULT DETECTED: 
6084 [EOP BIT SETTING ERROR. 
sSSssssssssnns ERROR ***$$$SSSSSSS 
6086 003130 000412 bR $T10 i 
003132 042777 000002 176206 1$: BIC #81T1,a1BS ;CLEAR EOP 
6089 003140 005037 001124 CLR SGDDAT sEXPECT A ZERO CSR. 
6090 003144 017737 176176 001126 MOV @1BS,$BDDAT 3READ 18S, IS IT CLEAR? 
6091 003152 001401 BEQ TST10 33 
6092 
ss SSSSSSSS$E$>>> ERROR <<<S$$SSSSSSS$S 
(1) 
(1) 003154 104003 ERROR 3 :/MODULE FAULT DETECTED: 
6093 718S FAILED TO CLEAR 
_ 1 :S$$SS$S$$S°°* ERROR **“SSSSSSSSSS 
6096 ina ta” ~—~(“‘( ee on oe eae 
(3) T 10 *TEST THAT RE WILL SET + CLEAR 
(3) os RRR RUA | Bee 
(2) 003156 000004 bites SCOP 
6097 
6098 003160 005077 176162 CLR ales :CLEAR CSR. 
6099 003164 052777 000004 176154 BIS #81102.018S *SET R 
6100 003172 012737 000004 001124 MOV #B1T02.$GDDAT EXPECT ONLY REM TO SéT. 
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MACY11 30(1046) 15 

15:35 T10 *TEST THAT RE WILL SET + CLEAR 

176142 001126 MOV QBS ,SBDDAT :READ 18S. 

001126 001124 CMP SBDDAT,$GDDAT :DID REM AND ONLY REM SET? 
BEQ 1$ ‘YES = CONTINUE 


s2$SSSSSSSSS>>> ERROR <<<S$S$SSSSSSSS 


ERROR 3 s/MODULE FAULT DETECTED: 


sREM BIT SETTING ERROR. 
3; SS$$SSSSS$“** ERROR “*“SSSSSSSSSS 
BR TST11 


000004 176116 1$: BIC #81T02,a1BS :CLEAR REM BIT. 
001124 CLR DDAT sEXPECT ZERO CSR. 
176106 001126 MOV a1BS,$BDDAT sREAD IBS = IS IT CLEAR? 
BEQ TST11 3 
2 2$SSSSSS$S$SS>>> ERROR <<<S$SSSSSSSSS 
ERROR 3 3/MODULE FAULT DETECTED: 
:1BS FAILED TO CLEAR. 
1 2SSS$$SS$$$$°°* ERROR “*“S$SSSSSSSSS 
FF AARAAAAAEAAEAREEAE EAA EEE EAE AERAEAEEEERAREEEREREREERERREEREERERE 
S*TEST 11 *TEST THAT IBC WILL SET AND CLEAR 
SS RERAAEAEAEEEAEREAEEEEEEAEEEEEEEEERERAAERAAARAAEEEAREEEERERAEEERERERE 
TST11: SCOPE 
176072 CLR ales ZCLEAR CSR. 
000010 176064 BIS #81T03,a18S ‘SET IBC 
900019 001124 MOV #B1T03,$GDDAT ;EXPECT ONLY IBC TO BE SET 
176052 001126 MOV @1BS ,SBDDAT 3 " 
001124 001126 CMP SGDDAT,$BDDAT :DID IBS SET? 
BEQ 1$ :YES CONTINUE 
000010 176032 MOV #81T03,a1BS sTRY SETTING IBC AGAIN. 
176026 001126 MOV a1BS,$BDDAT :MEMORY REFRESH MIGHT HAVE 
001124 001126 CMP $GDDAT., SBDDAT :GOT IN THE WAY. 


7 SS$SSSSSSS>>> ERROR <<<S$$SSSSSSSS 


ERROR 3 s/MODULE FAULT DETECTED: 


[IBS BIT SETTING ERROR. 
3: SSS$S$$S$S°°* ERROR ***SSSSSSSSSS 
BR TST12 
JSR RS,DEL5O 


sDELAY 150 US. 


SEQ 0017 
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CNIBAA.P11  -10=DEC=82 15:35 11 *TEST THAT IBC WILL SET AND CLEAR SEQ 0018 
61 33 003342 000006 .WORD 6 
6137 003 012737 002001 001124 MOV #81T10!B1T0,$GDDAT :EXP CMD AND TCS. 
6138 003352 017737 175770 001126 MOV a1BS,$BDDAT ;READ 18S = IS IT CLEAR? 
6139 003360 023737 001124 001126 CMP Soppit. SBDDAT 
6140 003366 001401 BEQ ST12 $3 
6141 
5 :$$$S$$$S$$$>>> ERROR <<<$$SSSSSSSS 
(1) 
(1) 003370 104003 ERROR 3 :/MODULE FAULT DETECTED: 
6142 71BS NOT CLEAR AFTER IBC 
s:$$$S$$S$$$°°* ERROR “““S$SSSSSSSSS 
6144 FERRARA AEEAAREREEEAEEERAERARERAEEEAEAAAREEEEEEREREREREEEEEEE 
(3) sSTEST 12 *TEST THAT TON (BITOS) AND TKR SET AND CLEAR 
(3) SERA RAEAAAEAAAAAEAEERER AEA AE AEAEARAAEREAEEREREEAEEREREREREERREE 
(2) 003372 000004 78112: SCOPE 
6145 
6146 003374 005077 175746 CLR ales i CLEAR ote CSR. 
6147 003400 052777 000040 175740 BIS #81T5,a1BS 
6148 003406 012737 001040 001124 MOV #B1T5'BIT9 saopai er PECT ONLY TON AND TKR TO SET. 
6149 003414 017737 175726 001126 MOV a18S,$BDDAT 
6150 003422 023737 001124 001126 CMP SGDDAT,$BDDAT :DID THEY BOTH SET? 
6131 003430 001402 BEQ 1$ ‘YES = CONTINUE. 
615 
2 SSSSS$S$$S>>> ERROR <<<S$$SSSSSSSS 
(1) 
(1) 003432 104003 ERROR 3 :/MODULE FAULT DETECTED: 
6154 TERROR IN SETTING TON BIT. 
; SSSSSSSSS$*** ERROR “*“SSSSSSSSSS 
6156 003434 000412 bR TST13 3 
6158 003436 042777 000040 175702 1S: BIC #B1T5,a1BS {WHEN TON CLEARED, TKR SHOULD CLEAR. 
6159 003444 005037 001124 CLR $GDDAT SEXPECT ZERO CSR 
6169 003450 017737 175672 001126 MOV a1BS,$BDDAT 301D IT CLEAR? 
6161 003456 001401 BEQ TST1$ 33 
6162 
7 2SSSSSSSS$SS>>> ERROR <<<SSSSSSSSSS 
(1) 
(1) 003460 104003 ERROR 3 :/MODULE FAULT DETECTED: 
6163 [CSR FAILED TO CLEAR. 
aoat 1 S$SS$$S$$S°°* ERROR ““*SSSSSSSSSS 
6 


1 
166 SF AAAAAAAAAAAAAAEAA RARER AAAAAAAAAEAAAAAAAKERAAKAAAKE REAR eee 
€ 
( 


$3 ou 13 *MAKE SURE WE CAN SET AND CLEAR B1106 (IE) 


FRAAAAEAAAAEHEAAAAAAAEAAAAAAEAAAAAAAAAAAAAAAAAAAAARAEEREeAeAREee 


a i ie eae —— 
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‘MAINDEC 
CN NIBAA.P11 10=DEC=82 15:35 113 MAKE SURE WE CAN SET AND CLEAR BITO6 (IE) 
(3) 003462 000004 TST13: SCOPE 
$188 
(1) 003464 012746 000300 MOV #300,-(SP) 7ST cPu PRIORITY ON RETURN 
(1) 003470 012746 003476 MOV #64$.-(SP) :/SHOW RETURN ADDRESS 
| €1) 003474 000002 RTI ‘/CAUSE A RETURN (PUTS NEW STATUS 
git} 003476 64$: :/IN STATUS REG.) 
$170 003476 005077 175644 CLR ales :CLEAR CSR. 
6172 003502 052777 000100 175636 BIS #81T6,a1BS 3SET IE. 
6173 003510 012737 000100 001124 MOV #B1T6,$GDDAT sEXPECT ONLY BIT 6 TO SET. 
| 6174 003516 017737 175624 001126 MOV @1BS, $BDDAT sREAD IBS. 
6175 003524 023737 001124 001126 CMP SGDDAT,$BDDAT :DID IE SET? 
| $176 003532 001402 BEQ 1$ SYES = CONTINUE. 
22SSSSSS$SSS>>> ERROR <<<S$$SSSSSSSS 
(1) 
(1) 003534 104003 ERROR 3 3/MODULE FAULT DETECTED: 
6178 sERROR IN SETTING IE BIT. 
ipSssssssssso** ERROR “““SS$SSSSSSSS 
6180 003536 000412 33 
6182 003540 005037 001124 1$: CLR $6D sEXPECT ZERO CSR AFTER. 
6183 003544 042777 000100 175574 BIC Tre ales t1E IS CLEAR 
6184 003552 017737 175570 001126 MOV siBs $BDDAT ;READ CSR = IS IT CLEAR? 
6185 003560 001401 BEQ TST14 33 
6186 
22 SSSSSS$$$$>>> ERROR <<<SSSSSSSSSS 
(1) 
(1) 003562 104003 ERROR 3 :/MODULE FAULT DETECTED: 
6187 sFAILED TO CLEAR CSR. 
asee r2S$SSSS$S$S$$°** ERROR ***SSSSSSSSSS 
6190 FRRAERAAAAAERAAAAAAEER AA AAE EAE AAARERARAEARAAAEAAERERAAAEAERAEEREEE 
(3) TEST 14 *TEST THAT BIT 7 (ACC) CAN BE SET AND CLEARED 
(3) FERRARA AREEEAAEAREAEEAAERERAAAAAAAAAAAAAEAAAEAERAAAAAAEEEERAEEEE 
(2) 003564 000004 TST14: scr 
CLR ales 3CLEAR CSR. 
BIS #B1T7,al1BS sSET ACC. 
MOV #BIT7 SCDDAT sEXPECT ONLY ACC TO SET. 


MOV a18S,$BDDAT =R , 
CMP S$GDDAT, SBDDAT *DID ACC SET? 
BEQ 1$ SYES = CONTINUE. 


s2$SSSS$SS$$SS>>> ERROR <<<S$SSSSSSSS 





SEQ 0019 


ee ee ae, 





oo + + ee a . - s - e - eee 


| 2 
/MAINDEC-11-CNIBA=A MACY11 30(1046) Ot ae 16:09 PAGE s7-1 8 


\CNIBAA.P11 = 10=DEC=82 15:35 114 TEST THAT BIT 7 (ACC) CAN BE SET AND CLEARED SEQ 0020 
(1) 
/ (1) 003624 104003 ERROR 3 :/MODULE FAULT DETECTED: 
| 6199 [FAILURE IN SETTING BIT 7 (ACC). 
sssssssssso** ERROR **“$$S$SSSSSS 
| 6201 003626 000412 bk T15 3 
6203 003630 042777 000200 175510 1$: BIC #68117, a1BS :TRY CLEARING ACC. 
6204 003636 005037 001124 CLR SGDDAT SEXPECT ZERO CSR. 
6205 003642 017737 175500 001126 MOV @1BS,$BDDAT 3READ 18S, IS IT CLEAR? 
| 6206 003650 001401 BEQ TST15 3: 
6207 
72SSSSS$S$$$SS>>> ERROR <<<S$$$SSSSSSS 
(1) 
(1) 003652 104003 ERROR 3 :/MODULE FAULT DETECTED: 
6208 t18S FAILED TO CLEAR. 
1 :S$$S$$S$$$*** ERROR *““SSSSSSSSSS 
6210 
Si 
(5) FARRAR AEAAERERERERE EEE EAEEEEEERAREEEEEEERRAEREERERAEERAEEEEEEEEE 
(4) tSTEST 15 *TEST THAT IBD BIT 0 CAN BET SET + CLEARED 
(4) REEEAKEAEAAAAAEAAAEEAAEAEEEAAEEEAAAAAEAARAEAEAERERAREAERERAARERREE 
(3) 003654 000004 T8115: SCOPE 
4 
(1) 
(1) MACRO BDT 
(1) 003656 012777 000060 175462 MOV #B1T4!BITS alBS TSeT TON AND L 
(1) 003664 012737 000001 001124 MOV #BITO,$GDDAT E/ME'RE GONNA TEST BIT 0. 
(1) 003672 013777 001124 175450 MOV SGDDAT,a1BD :/SET THE BIT. 
(1) 003700 117737 175444 001126 MOVB = @I1BD, SBDDAT 3 /READ THE I6D. 
(1) 003706 123737 001124 001126 CMPB $GDDAT,$BDDAT :/DID IT GET THRU OK? 
(1) 003714 001402 BEQ 1$ t7YES = CONTINUE . 
(2) 
s2SSSSSSS$S$$S>>> ERROR <<<SSSSSSSSSS 
(2) 
(2) 003716 104004 ERROR 4 :/MODULE FAULT DETECTED: 
(1) :/ERROR IN SETTING IBD BIT 0. 
:$$$$S$$$$$°°* ERROR ~ossssssssss 
(3) 003720 000412 BR TST16 
(1) 003722 005037 001724 1$: CLR SGDDAT :7EXPECT ZERO 180 WHEN 
(1) 003726 042777 (yu001 175414 BIC #31T0,a1B8D :/BIT 0 IS CLEARED. 
(1) 003734 117737 175410 001126 MOVB a1ep $BDDAT ; /READ 18D, IS IT CLEAR? 
(3) 003742 001401 BEQ TST16 33 


s2SSSSS$SSS$ES>>> ERROR <<<SS$SSSSSSSS 








en eee 


MAINDEC-11=CNIBA=A MACY11 30(1046) 15- =DEC-82 16:09 PAGE 57- 
jouena 10=DEC-82 15:35 115 *TEST THAT IBD BIT NY CAN BET SET + CLEARED SEQ 0021 
(2) 
(2) 003744 104004 ERROR 4 :/MODULE FAULT DETECTED: 
(1) ‘FAILED TO CLEAR 18D 
rS$SS$$SS$$SS°°* ERROR “““*SSSSSSSSSS 
iB 
(5) FERRARA AAAAAAAAAAAAAREAAEAAAAEEAAREEEAAAEREREAAEAAAAREAREEAEREREEE 
(4) tSTEST 16 *TEST THAT IBD BIT 1 CAN BET SET + CLEARED 
(4) RAAAAAAEAAAAAAAEAAESAAEAAEAEAEAEEREARAEAARARAAAEAEREAAEERERERAEREEAREEE 
(3) 003746 000004 TéT16: SCOPE 
(1) 
(1) :/MACRO BDT 
(1) 003750 012777 000060 175370 MOV #BIT4'BITS,aIBS :/SET TON AND LON. 
(1) 003756 012737 000002 001124 MOV #BIT1,$GDDAT | :/WE°RE GONNA TEST BIT 1. 
(1) 3764 013777 001124 175356 MOV $GDDAT,a18D :/SET THE BIT. 
(1) 003772 117737 175352 001126 MOVB  @I18D,$BDDAT :/READ T HE IBD. 
(1) 004 123737 001124 001126 CMPB  $GDDAT,$BDDAT :/DID IT GET THRU OK? 
(1) 004006 001402 BEQ 1$ 27YES = CONTINUE. 
(2) 
s:$$$S$$S$$S>>> ERROR <<<$$$SSSSSSS 
(2) 
(3) 004010 104004 ERROR 4 :/MODULE FAULT DETECTED: 
(1) :/ERROR IN SETTING IBD BIT 1. 
zi SSSSsssssso** ERROR “*“$S$SSSSSSS 
(3) 004012 000412 BR $T17 
(1) 004014 005037 001124 1$: CLR SeDDAT :7expect ZERO IBD WHEN 
(1) 004020 042777 000002 175322 BIC #81T1,a18D :/BIT 1 IS CLEARED. 
(1) 004026 117737 175316 001126 MOVB 916) $BDDAT 3 /READ 18D, IS IT CLEAR? 
(3) 004034 001401 BEQ 11? 33 
(2) 
s2S$SSSSS$SS>>> ERROR <<<S$SSSSSSSS 
(2) 
(2) 004036 104004 ERROR 4 :/MODULE FAULT DETECTED: 
(1) ‘FAILED TO CLEAR IBD. 
1 :$$SS$SS$SS°°* ERROR ***SSSSSSSSSS 
6540 
(5) FRRAAAAAEAAAAARAAAAEAAAT ETA AARTAAAEAEAAEAAREAAAREREHAAAAERAANAEE 
(4) zSTEST 17 *TEST THAT IBD BIT 2 CAN BET SET + CLEARED 
(4) REAEAAEEEAAEAAAEAAAESASAAAEASAAAEARAAAAARAEAEAEAEEAERAERAEAEAEAEEEEEEEEEE 
(3) 004040 000004 T8117: SCOPE 
(1) 
(1) :/MACRO BDT 
(1) 004042 012777 000060 175276 MOV #BIT4'BITS,@IBS ;/SET TON AND LON. 








peeiarneneenenneenennannnaainapieeatets RR i itn REL GR OD 
| MAINDEC=11-CNIBA=A MACY11 30(1046) 15=DEC-82 16:09 PAGE 57-20 
CNIBAA.P11 10=DEC-82 15:35 117 *TEST THAT IBD BIT 2 CAN BET SET + CLEARED SEQ 0022 
| €1) 006050 012737 000004 001124 MOV #B1T2,$GDDAT /WE"RE GONNA TEST BIT 2. 
a) 004056 013777 001124 175264 MOV SGDDAT,a1BD t7SET THE BIT. 
, @ 117737 175260 001126 MOVE @I18D,SBDDAT ;/READ THE IBD. 
(1) 004072 123737 001124 001126 CMPB ScDDAT, SBDDAT :/D1D IT GET THRU OK? 
| (1) 006100 001402 BEQStiédTS; :7YES = CONTINUE. 
(2) 
s7$SSSSSS$SS$>>> ERROR <<<S$S$SSSSSSS 
(2) 
(2) 004102 104004 ERROR 4 z/MODULE FAULT DETECTED: 
(1) :/ERROR IN SETTING IBD BIT 2. 
izSssssssssso~* ERROR “**S$$SSSSSSS 
(3) 004104 000412 $120, 
(1) 004106 005037 001124 1$: er SeDbA :7EXPECT ZERO IBD WHEN 
(1) 004112 042777 000004 175230 BIC #81 ey alBD :/BIT 2 1S CLEARED. 
(1) 004120 117737 175224 001126 MOVB  a18D,$BDDAT z/READ IBD, IS IT CLEAR? 
(3) 004126 001401 BEQ TST20 33 
s:$$$$$$S$SS$$>>> ERROR <<<$$SSSSSSSS 
(2) 
(2) 004130 104004 ERROR 4 z/MODULE FAULT DETECTED: 
(1) [FAILED TO CLEAR IBD. 
1 :SSS$$S$SSS$$°°* ERROR “““SSSSSSSSSS 
oil 
(5) FRRAREREEAEEAEEEERA TEA EEAAEAAAEAAAAAAEAEAAAAAERERAAEAEREERERERAES 
(4) TEST 20 *TEST THAT IBD BIT 3 CAN BET SET + CLEARED 
(4) SRARAAEAAAREAEAAAAAAAAARAATAAARERAAARERERAARAEEEERARAREREREEEARREE 
(3) 004132 000004 78120: SCOPE 
(1) 
(1) :/MACRO BDT 
(1) 004134 012777 000060 175204 MOV #B1T4'BITS,@IBS :/SET TON AND LON. 
(1) 004142 012737 000010 001124 MOV #BIT3,$GDDAT | :/WE'RE GONNA TEST BIT 3. 
(1) 004150 013777 001124 175172 MOV S$GDDAT,a1BD :/SET THE BIT. 
(1) 004156 117737 175166 001126 MOVB a@IBD,$BDDAT z/8END THE IBD. 
(1) 004164 123737 001124 001126 CMPB  $GDDAT,$BDDAT ;/DID IT GET THRU OK? 
(1) 004172 001402 BEQ 1$ :/YES = CONTINUE. 
(2) 
sr $SSSSS$$ESS>>> ERROR <<<S$SSSSSSSSS 
(2) 
(2) 004174 104004 ERROR 4 ;/MODULE FAULT DETECTED: 
(1) :/ERROR IN SETTING IBD BIT 3. 


72 SSSSSSSS$S°** ERROR “*“SSSSSSSSSS 





aed } 






Le 
MAINDEC-11-CNIBA=A MACY11 30(1046) 15=DEC-82 16:09 PAGE 57- 
CNIBAA.P11 10=DEC-82 15:35 T20 *TEST THAT IBD BIT "CAN BET SET + CLEARED SEQ 0023 


(3) 004176 2 BR 
(1) 004200 005037 001124 1$ CLR SsDpAr :TexPECT ZERO IBD WHEN 
(1) 004204 042777 000010 175136 BIC alBD :/BIT 3 IS CLEARED. 
(1) 004212 117737 175132 001126 MOVB BD, SBDDAT 3 /READ 18D, IS IT CLEAR? 
(3) 002220 001401 BEQ aero 33 
s2SS$S$SSSS$$SS>>> ERROR <<<S$SSSSSSS$$S 
(2) 
(2) 004222 104004 ERROR 4 :/MODULE FAULT DETECTED: 
(1) ‘FAILED TO CLEAR 18D. 
rSS$SESS$S$*** ERROR “““SSSSSSSSSS 
6542 
(5) FERRARA ERARERAE AREER ERETEE RARE EERAEEARERAEAAERERERERREREREREEE 
(4) TEST 21 *TEST THAT IBD BIT 4 CAN BET SET + CLEARED 
(4) FRRAAEAAAEREAREREEEEEEEEEEEEEEEERERERAEEEEREREEEEEEEEHEREREEREREE 
(3) 004224 000004 +8121: SCOPE 
(1) 
(1) :/MACRO BDT 
(1) 004226 012777 000060 175112 MOV #81T4!BITS,aI1BS 3/SET TON AND LON. 
(1) 004234 012737 000020 001124 MOV WBI<4.$GDDAT | :/WE'RE GONNA TEST BIT 4. 
(1) 004242 013777 001124 175100 MOV SGDDAT,a1BD 7/SET THE BIT. 
(1) 004250 117737 175074 001126 MOVB = IBD, SBDDAT :/READ THE IBD. 
(1) 004256 123737 001124 001126 CMPB = $GDDAT, $BDDAT :/D1D IT GET THRU OK? 
(1) 004264 001402 BEQ 1$ :/YES = CONTINUE. 
(2) 
r$S$$SS$S$S$>>> ERROR <<<S$$S$SSSSS 
(2) 
(2) 004266 104004 ERROR 4 :/MODULE FAULT DETECTED: 
(1) ?/ERROR IN SETTING IBD BIT 4. 
iisssssssssso** ERROR “*“$S$$SSSSSSS 
(3) 004270 000412 $122 
(1) 004272 005037 001124 1$: aie sepoaT :7EXPECT ZERO IBD WHEN 
(1) 004276 042777 000020 175044 BIC #B1T4,a1BD :/BIT 4 IS CLEARED. 
(1) 004304 175040 001126 MOVB a@I1BD,$BDDAT ; /READ 1b, IS IT CLEAR? 
(3) BEQ T9428. t: 


; :$$$$$$$8$$>>>- Enno, <eessssssssss 


ERROR 4 - : /MODULE FAULT DETECTED: 
[FAILED TO CLEAR IBD. 


3 $$$S$S$SS$$$°°* ERROR «-9SSSSSSSSSS | 


Sib Se RT RIL SE SD 


| MAINDEC=11-CNIBA=A 
| CNIBAA.P11 10=DEC=82 15:35 


2777 000060 
2 000040 
3777 001124 
7737 +=175002 
4 14 001124 


AAA AAA AAA AALS 
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ee ee es ee a a ea 
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» 0043 005037 001124 
» 004370 042777 000040 
» 004376 117737 174746 
4 004404 001401 


(2) 
oH 004406 104004 
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re 001124 


es ee on 
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2 
*TEST THAT IBD BIT : CAN BET SET + CLEARED 


FARRAR AAAAAEEEEAREAERAEEE EE AEEREEEEREREREEEREERAEEREREEREARERERKE RE 


tS TEST 22 *TEST THAT IBD BIT 5 CAN BET SET + CLEARED 
RRAAAAAAAAAAEKAEAAEAEEAEAEAEERAEAAAAERAREAAAAAAEEREREERAREREEEEREEE 
+&122: SCOPE 
:/MACRO BDT 
MOV #81T4'BITS,alBS 3/SET TON AND L 
MOV #BITS.$GDDAT  :/WE'RE GONNA test BIT 5. 


1$: 


MOV $GDDAT,alBD 


MOVB @1BD,SBDDAT 3/READ THE IBD. 
CMPB SGDDAT,SBDDAT ;/DID IT GET THRU OK? 
BEQ 1$ 3/YES = CONTINUE. 


3/SET THE BIT. 


3: S$SS$$$SSS$>>> ERROR <<<S$S$$SSSSSSS 


ERROR 4 z/MODULE FAULT DETECTED: 


;/ERROR IN SETTING [8D BIT 5. 
[je ERROR “““$SSSSSSSSS 
BR TST23 


CLR ore SVEXPECT ZERO IBD WHEN 
BIC #81T5,aI1BD 3/BIT 5 IS CLEARED. 
oye aiep,éB00At ;/READ 18D, IS IT CLEAR? 


3: S$SSS$$$SS$>>> ERROR <<<SS$SSSSSSS 


ERROR 4 s/MODULE FAULT DETECTED: 


sFAILED TO CLEAR IBD. 
3 sSSSSSSSSSS°** ERROR ***SSSSSSSSSS 


FRRAAAEAERAAAEEEAEREEAEEEEEEEAEEEAERERAEEEEEEEEEEEREREEAEREEEEEERE 


SSTEST 23 


SREREEEEKEEEEEEEEAEEEEEEEEEEEEERAEEAEREEEEREEEEEEEEEEAEEREREEEEE 


18123: 


*TEST THAT IBD BIT 6 CAN BET SET + CLEARED 
SCOPE 


MACRO BDT 
MOV #81T4!B1T5,a1BS i/set TON AND LON. 
MOV #8116, $GDDAT 3/WE* . GONNA TEST BIT 6. 
MOV $GDDAT,a1BD 3/SET THE BIT. 


MOVB 18D, $BDDAT i THE IBD. 
CMPB SGDDAT ,SBDDAT /DID IT A THRU OK? 
BEQ 1$ 3/YES = CONTINUE. 


— = —— ee a C= - -- - - - 


SEQ 0024 


pom 
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MAINDEC=11=CNIBA=A MACY11 30(1046) 15 
CNIBAA.P11 - 10=DEC=82 15:35 123 *TEST THAT IBD BIT 6 CAN BET SET + CLEARED SEQ 0025 
| r$$S$$$$$$$>>> ERROR <<<$$S$SSSSS$ 
(2) 
(2) 004452 104004 ERROR 4 z/MODULE FAULT DETECTED: 
; @ :/ERROR IN SETTING IBD BIT 6. 
sssssssssso** ERROR “*“S$$S$SSSSSS 
(3) 004454 000412 aR ST24 
(1) 004456 005037 001124 1$: CLR SCODAT. S7ENPECT ZERO 18D WHEN 
(1) 004462 042777 000100 174660 BIC :/BIT 6 IS CLEARED. 
(1) 004470 117737 174654 001126 MOVB sPAD Seupat 3 /READ 18D, IS IT CLEAR? 
(3) 004476 001401 BEQ TST24 33 
7 S$$$$SSSS$$$S>>> ERROR <<<S$$SSSSSSSS 
(2) 
(2) 004500 104004 ERROR 4 :/MODULE FAULT DETECTED: 
(1) :FAILED TO CLEAR IBD. 


2s SS$$SSSS$S$°** ERROR “““SSSSSSSSSS 





(1) 
635 FREER ARERREEEEEEREREEEEEEEEEEEREREEREEEEREREREKEEEREEEEREREEE 

(4) TEST 24 *TEST THAT IBD BIT 7 CAN BET SET + CLEARED 

(4) FRRARAEREEEEEEAEERERAEEEREREREREREREEEARAERREREREREREREEEKEREREREKE 

(3) 004502 000004 18124: SCOPE 

(1) 

(1) :/MACRO BDT 

(1) 004504 012777 000060 174634 MOV #B1T4'BITS @IBS 3/SET TON AND LON. 

(1) 004512 012737 000200 001124 MOV #BIT7.$GDDAT | :/WE*RE GONNA TEST BIT 7. 

(1) 004520 013777 001124 174622 MOV $GDDAT ,alBD :/SET THE BIT. 

(1) 004526 117737 174616 001126 MOVB  a@IBD,$BDDAT ;/READ THE IBD. 

(1) 004534 123737 001124 001126 CMPB  $GDDAT,$BDDAT :/DID IT GET THRU OK? 

1) 004542 001402 BEQ 1$ :/YES = CONTINUE. 

(2) 

ss $$SS$$S$$E$S>>> ERROR <<<S$SSSSSSSSES 

(2) 

(2) 004544 104004 ERROR 4 :/MODULE FAULT DETECTED: 

(1) :/ERROR IN SETTING IBD BIT 7. 

si SSSSSSSSSS°** ERROR ***$$S$SSSSSS 

(3) 004546 000412 BR S125 

(1) 004550 005037 001124 1$: CLR SepbaT 3 7ENPECT ZERO 18D WHEN 

(1) 004554 042777 000200 174566 BIC #B1T7,a :/BIT 7 IS CLEAR 

(1) 004562 117737 174562 001126 MOVB a1Bp $BobaT ; /READ IBD, IS IT CLEAR? 

(3) 00457 BEQ TST25 33 


sz S$SS$SSSSSE$S$>>> ERROR <<<S$SSSSSSSSS 





: 


| 
| MAINDEC-11-CNIBA=A MACY11 30(1046) 15-DEC-82 16:09 PAGE 5 
(CNIBAA. PIT 10-DEC-82 15:35 T24 *TEST THAT IBD Bit “CAN BET SET + CLEARED SEQ 0026 . 
: 
(2) 
| (2) 004572 104004 ERROR 4 3s/MODULE FAULT DETECTED: 
(1) SFAILED TO CLEAR IBD. 
3 MBSSSSSSSSS*** ERROR ““*SSSSSSSSSS 
6546 
6247 peeeeereee RRAREEREREREREREEEREREREEREREEREEEREREEEREREREEEREEE 
(3 TEST 25 *TEST THAT NO DATA GETS XFERRED, IF NOT ENABLED 
(3) seeeekeeeeee HHeECeREHReHAKEAEHHREKAAARAEREERAEAREERERRERREE REE 
ts} 004574 000004 +8125: SCOPE *% 
6248 
6249 004576 005077 174544 CLR aIBs ;CLEAR CSR 
6250 004602 112777 000252 174540 MOVB #252, a1BD sTRY XFERRING D 
6251 004610 005037 001124 CLR SGDDAT NO DATA SHOULD. XPERR 
6252 004614 117737 174530 001126 MOVB @18D ,SBDDAT 3READ BUFFER REG. 
6253 004622 001401 BEQ TST26 ae 
6254 ’ 
2 S$S$SS$SSS$S$SS>>> ERROR <<<$$S$$SSSSS 
(1) 
(1) 004624 104002 ERROR 2 :/MODULE i DETECTED: 
6255 DATA WAS XFERRED THROUGH IBD 
6256 EVEN THOUGH TON AND LON CLEARED. 
6257 : sSIGNAL ‘‘ENB XFER L** PROBABLY 
6258 :STUCK K LOW. 
6260 72 SSSSSSS$SSS°** ERROR ““*SSSSSSSSSS 
6261 FERRARA ARER EE EERE A ARETE AERA AAEEAEAARERERAREREEREEEEREEEEEEE 
(3) zSTEST 26 *TEST IBD BITS DAC, AND DAV 
(3) FERRARA KS AAAAAAAAAATETAAAEAARAAAAAAAAAAEAEHHAAeee eee eee ee 
os 004626 000004 78126: SCOPE 
62 
6263 004630 005077 174512 CLR alBs sCLEAR CSR. 
62 004634 005077 174510 CLR a1B8D zCLEAR DATA REG. 
6265 004640 032777 000400 174502 BIT #81T8,a18D :1S DAC SET? 
6266 646 BNE 4$ sYES (GOOD) 
6267 
37 S$SSSSSSSES>>> ERROR <<<SSSSSSSSSS 
ey. 
(1) 006650 104002 ERROR 2 7/MODULE FAULT DETECTED: 
6268 ;DAC NOT SET. 
j z ;39$33555535°°* ceiiun **°SS$$9999505 
| 6276 004652 000437 BR TST2? 33 
6271 004654 4$: 
6272 004654 052777 900260 174464 als et a -@1@S _:SET TON AND LON 
| $27 004662 0 12777 900032 174i 24 MOV 3PUT DATA IN 18D. 
6274 0046 1773/ 1744654 [£.1126 MOV BD _$8DD4T TREAD 18D. 


er ee 





MAINDEC-11-CNIBA-A MACY11 30(1046) Dae 16:09 PAGE 57-95 


CNIBAA.P11 10=DEC=82 15:35 *TEST IBD BITS DAC, AND DAV SEQ 0027 
6275 004676 032737 001000 001126 BIT #B1T9,$BDDAT ;DID DAV SET? 
6276 004704 001002 BNE 1$ ZYES = CONTINUE. 
27 $SSSSSS$$SS>>> ERROR <<<S$$SSSSSSS$S 
(1) 
(1) 004706 104002 ERROR 2 :/MODULE FAULT DETECTED: 
6278 :DAV FAILED TO SET. 
- :$$$$S$$S$$°°* ERROR **“SSSSSSSSSS 
6280 004710 000420 BR TST27 3 
6282 004712 012777 000060 174426 1$: MOV #BITGIBITS,aIBS ;CLEAR ACC. 
6283 004720 105777 174424 2s: TST8 © a BD :READ LOW BYTE OF IBD. 
6284 004724 032777 000400 174416 BIT #8118, a18D ‘DID DAC CLEAR? 
6285 004732 001402 BEQ 3$ :YES = CONTINUE. 
6286 
sSSSSSSSS$SS>>> ERROR <<<S$SSSSSSSSS 
(1) 
(1) 004734 104002 ERROR 2 ;/MODULE FAULT DETECTED: 
6287 [DAC FAILED TO CLEAR. 
>: $$$SS$$S$$°°* ERROR **“SSSSSSSSSS 
6289 004736 000405 BR TST27 i 
6290 004740 Ose777 001000 174402 3$: BIT #81T9,a18D [BID DAV CLEAR? 
91 004746 001401 BEQ TST27 33 
6292 
sSSSSSSSSESE$>>> ERROR <<<S$SSSSSSSSS 
(1) 
(1) 004750 104002 ERROR 2 :/MODULE FAULT DETECTED: 
6293 :DAV FAILED TO CLEAR. 
axe 1:$$$S$$S$$S°°* ERROR “““S$SSSSSSSSS 
6557 :/MACRO -SIGC- 
(5) SP AAAAAAAAAAERERAAAEAAAAAETAAAAEAAEAAAAERAAAAARAARAAAEAARAARERAEEEE 
(4) S*TEST 27 *TEST THAT REN SETS WHEN REM SETS, ALSO TEST CLEAR 
(4) bd ‘ RAETATAAAAASTCAAARAAASASEAKAAAEEAAAEAAAAAARARARARAERARARAAERAAARARARAREAE 
(3) 004752 000004 1S127: SCOPE 
(1) 
(1) 004754 005077 174366 CLR ales :/CLEAR CSR. 
(1) 004760 052777 000004 174360 BIS #8172, a18S 3/SET REM, SHOULD SET REN. 
(1) 004766 032777 010000 174354 BIT #81T12,a18D :/DID REN SET? 
(1) 006774 001011 BNE 1$ :/YES = LETS TRY CLEARING IT. 
(1) 004776 052777 000004 174342 BIS #8112,a18S :/SET REM, MEMORY 
(1) :/REFRESH COULD HAVE 
(1) :/ INTERRUPTED US. 
(1) 005004 032777 010000 174336 BIT #81T12,a1BD :/DID REN SET THIS TIME? 
(1) 005012 001002 BNE 1$ 


| 
| 
| 
| 
j 
‘ 


t—-- Oe 


MAINDEC=11-CNIBA=A MACY11 30(1046) 
CNIBAA.P11 10=DEC=82 15:35 127 
(2) 


i$} 
is} 005014 104002 


(2) 
ts? 005036 104002 


(2) 
oH 005102 104002 


005104 000411 


005116 032777 020000 174224 





(3) 005016 000410 

(1) 005020 042777 000004 174320 1$: 
(1) 005026 032777 010000 174314 

(3) 005034 001401 


032777 000010 174232 1$: 
001374 


J3~DEC=~8e 16:09 PAGE 57- 5 


6 
*TEST THAT REN SETS WHEN REM SETS, ALSO TEST CLEAR SEQ 0028 


sSS$SSSSSSSS>>> ERROR <<<S$SSSSSSSSS 


ERROR 2 s/MODULE FAULT DETECTED: 


;/REN FILED TO SET WHEN REM SET. 
‘\eenees +: “El ERROR “““$SSSSSSSSS 


c palit? ales S7CLEAR REM, SHOULD CLEAR REN. 
I #BiTte, alBD [/DID REN CLEAR? 


Ba 
BI 
BI 
BE 


sr $S$SSSSS$S$SS>>> ERROR <<<S$SSSSSSSSS 


ERROR 2 3/MODULE FAULT DETECTED: 


/REN FAILED TO CLEAR. 
3 SSSSSSSSSS*** ERROR “**SSSSSSSSSS 


(1) 
6338 
6359 :/MACRO =SIGC- 
(5) FRRAAAARHRAAAEEAAEAEAERAAEEEEEEEAEEAAEEEREREREREEEERARREREEEEEREEEE 
(4) + STEST 30 *TEST THAT IFC SETS WHEN IBS SETS, ALSO TEST CLEAR 
(4)  RERRERRERRRERRREREREEREEEEEEREEREEREEEAERAAEERERAERAREEEEREEE EE 
(3) 005040 000004 78130: SCOPE 
(1) 
(1) 005042 005077 174300 CLR a1Bs :/CLEAR CSR. 
(1) 005046 052777 000010 174272 BIS #8113,a1BS :/SET IBS, SHOULD SET IFC. 
(1) 005054 032777 020000 174266 BIT #81713, a18D :/DID IFC SET 
(1) 005062 001011 BNE 1$ :/YES = LETS TRY CLEARING IT 
(1) 005064 052777 000010 174254 BIS #8113, a1B8S :/SET IBS, ME 
(1) :/REFRESH COULD HAVE 
(1) :/ INTERRUPTED US. 
(1) 005072 032777 020000 174250 BIT #81113,a18D :/DID IFC SET THIS TIME? 
(1) 005100 001002 BNE 1$ 


32 SSSSSSSSSS>>> ERROR <<<S$$SSSSSSSS 


ERROR 2 :/MODULE FAULT DETECTED: 


:/IFC FILED TO SET WHEN IBS SET. 
‘anaes: ERROR “““$SSSSSSSSS 


bR S731 33 
BIT #B1T3,aI1BS ;/WAIT FOR IBS TO CLEAR. 
BNE 1$ 


BIT #81T13,a18D :/1BS CLEAR, DID IFC CLEAR? 


en ne ee ee. is ee ee eee 


3 
C=11-CNIBA=A MACY11 30(1046) 15=DEC-82 16:09 PAGE 57- , 
A.P11 10=DEC=82 15:35 T30 “TEST THAT IFC SETS WHEN 18S SETS, ALSO TEST CLEAR 


005124 001401 BEQ TST31 a3 


so | 


33 SSSSSSSSSS$>>> ERROR <<<SSSSSSSSSS 


(2) 
(2) 005126 104002 ERROR 2 :/MODULE FAULT DETECTED: 
(1) :/1FC FAILED TO CLEAR. 
os s:$$$S$$S$$$°°* ERROR “*“S$SSSSSSSSS 
6340 
6341 :/MACRO =SIGC- 
(5) J RRAARAAAASRAARAEEAE EEA EEAEEAARAREAERERAERAAERERERERERERREREEEE 
(4) tS TEST 31 “TEST THAT ATN SETS WHEN TCS SETS, ALSO TEST CLEAR 
(4) SRAEAAAAAERAAAAEAAAAAEAETETAEEAAAERAARAAAAARAAAAARAEARAAEEAEAAAEEEEEE 
(3) 005130 000004 i$131: SCOPE 
(1) 
(1) 005132 005077 174210 CLR ales :/CLEAR CSR. 
(1) 005136 052777 000001 174202 BIS #B81T0,alBS /SET Tes, SHOULD SET ATN. 
(1) 005144 032777 040000 174176 BIT #81T14,a18D :/DID A SET? 
(1) 005152 001011 BNE 1$ /YES = ws 3 TRY yfLEARING IT. 
(1) 005154 052777 000001 174164 BIS #81T0,a18S t7SET TCS, MEMORY 
(1) :/REFRESH COULD HAVE 
(1) : INTERRUPTED US. 
(1) 905162 032777 040000 174160 BIT #81T14,a18D :/DID ATN SET THIS TIME? 
(1) 005170 001002 BNE 1$ 
(2) 
s2SS$SSSSS$$ESS>>> ERROR <<<S$SSSSSSSS 
(2) 
(2) 005172 104002 ERROR 2 :/MODULE FAULT DETECTED: 
(1) 3/ATN FILED TO SET WHEN TCS SET. 
SSSSSSsssse** ERROR “**S$$SSSSSSSS 
(3) 005174 00041 BR $T32 
(1) 005176 042777 000001 174142 1$: BIC palto alps S7CLEAR TCS, SHOULD CLEAR ATN. 
(1) 005204 032777 040000 174136 BIT #81114 ,a180 3/D1D ATN CLEAR? 
(3) 005212 001401 BEQ TST3 33 
(2) 
2 :SS$SSSSS$$ES>>> ERROR <<<SSSSSSSSSS 
(2) 
(2) 005214 104002 ERROR 2 z/MODULE FAULT DETECTED: 
(1) :/ATN FAILED TO CLEAR. 
~~ s$$$$SS$S$S°°* ERROR **“SSSSSSSSSS 
6342 
6543 :/MACRO -SIGC- 
(5) SFRAAAAAAEAAAAAAARERAAAEAAAAAAAAAAERERAARAAAAEAERAREREHEREREREEEE 


SEQ 0029 


-_——_ -—_- 


ee + 


| MAINDEC=11=CNIBA=A 
|CNIBAA.P11 


| 
| 
| 


(4) 


RAAF AA AAA AAA OOD 
ms at a ns i Ld 
ttt id 


005302 


005322 


104002 


104002 


000004 


005077 
032777 
001002 


104002 


MACY11 30(1046) 
10=DEC=82 15:35 


174122 
000002 
000002 


100000 


000002 
100000 


174034 
002000 


174114 
174110 
174076 


174072 


174054 
174050 


174030 


15=DEC=82 16:09 PAGE 57-28 
32 *TEST THAT EOL SETS WHEN EOP SETS, ALSO TEST CLEAR SEQ 0030 
seTEST 32 *TEST THAT EOL SETS WHEN EOP SETS, ALSO TEST CLEAR 
ih Me noes he a a Cece ec ea a 
+8132: SCOPE 
CL ales :/ CLEAR CSR. 
BIS #81T1,a1BS /SET EOP, SHOULD SET EOI. 
BIT #81715 ,alBD :7D1D EOI SET 
BNE 1$ :/YES = LETS Tay CLEARING IT. 
BIS #B1T1,a1BS :/SET EOP, 
+ REFRESH COULD Wave 
: INTERRUPTED US. 
BIT #B81T15,a1BD :/DID EOI SET THIS TIME? 
BNE 1$ 
t$S$$S$S$$$>>> ERROR <<<$$SSSSSSSS 
ERROR 2 z/MODULE FAULT DETECTED: 
:/EOI FILED TO SET WHEN EOP SET. 
jissssssssssoe ERROR “*“$S$SSSSSSS 
1$: alc #B1T1,a1BS ?7CLEAR EOP, SHOULD CLEAR EOI. 
BIT #81115 ,a18D :/DID EOI CLEAR? 
BEQ TST3 33 
s2SSSSSS$$SES>>> ERROR <<<SSSSSSSSSS 
ERROR 2 ;/MODULE FAULT DETECTED: 
:/EOI FAILED TO CLEAR. 
rSSS$SS$S$SS°** ERROR **“SSSSSSSSSS 
FRRARAEAEAEAEAREEEEEEEEEEERARERAEEAAAEEARAEEREREEAEAEEEEREEEREEEEEEE 
TEST 33 *TEST THAT RFD SET WHEN CSR CLEAR,CLEAR WHEN ACC SET 
SEAR AARAEAAAEEEEEEEAE EAE EEE AAERERAERERAAERAAEREEERERERAEEEEEE 
78133: SCOPE 
CLR ales :CLEAR CSR. 
BIT #81T10,a18D *DID RFD SET? 
BNE 1$ SYES CONTINUE. 


2s SSSSSSS$$$>>> ERROR <<<SSSSSSSSSS 


ERROR 2 3/MODULE FAULT DETECTED: 
RFD FAILED TO SET. 


3 SSSSSSSSSS°*°* ERROR “**SSSSSSSSSS 


ee + ee + =e 


| 
| 
j 
| 
{ 
| 
| 
i 
| 
{ 


-MAINDEC*11=CNIBA=A MACY11 30(1046) 15-DEC-82 16:09 PAGE 57-29 
‘CNIBAA.P11 =: 10=DEC=82 15:35 133 *TEST THAT RFD SET WHEN CSR CLEAR,CLEAR WHEN ACC SET SEQ 0031 
6353 005324 000410 BR TST34 i 
6355 605326 052777 000200 174012 1$: BIS #B1T7,a1BS zNOW SET ACC,RFD SHOULD CLEAR. 
6356 005334 032777 002000 174(06 BIT #eiti0, alBD 3D1D IT CLEAR? 
6357 005342 001401 BEQ TST3 $3 
6358 
72 SSSSS$S$$$>>> ERROR <<<S$SSSSSSSS$S 
(1) 
(1) 005344 104002 ERROR 2 ;/MODULE FAULT DETECTED: 
6359 [RFD FAILED TO CLEAR. 
r:SSS$ESS$$S*** ERROR *““SSSSSSSSSS 
ie 
6363 FERRARA AAREAAEAAEEAEE EEE EEE EREAAEEEEAREEREREEAEAEEEAEREREEEREREE 
(3) TEST 34 *TEST THAT WE CAN GENERATE AN ER2 
(3) SAAR AAHERAARAEAAEEEEHE EEE EEE EEAAEEAARERAEAEEEAEEEEREEEEEEERERERE 
(2) 005346 000004 18134: SCOPE 
6365 005350 005077 173772 CLR ales CLEAR one ratus REG. 
6366 005354 052777 000041 173764 BIS #B1T5!B1T0,a1BS SET S SHOULD CAUSE AN 
6367 ‘ShROR OSENCE NO LISTENERS ARE ON 
6368 005362 105077 173762 CLRB = 8D zAN AND WE SENT DATA TO THE BUS. 
6370 005366 032777 040000 173752 BIT #81114,a18S :DID ER2 SET? 
6371 005374 001001 BNE TST35 33 
6372 
12S$S$$S$$$$$>>> ERROR <<<$$$SSSSSSS 
(1) 
(1) 005376 104001 ERROR 1 3/MODULE FAULT DETECTED: 
6373 SER2 FAILED TO SET. 
6375 7 :SSS$S$SSSS$S*** ERROR “*“SSSSSSSSSS 
6376 FERRARA EREEEEAREEEAEEEREREAERAEAEEEERERAEREREEEEEEREEREREEEEE 
(3) TEST 35 *TEST THAT BUS INIT CLEARS ACC,TON,LON,REM,EIP,TCS 
(3)  eeRERERRRRHRHREARAERHRAECETAERHRAERARERREREEREREEERERREREREEEED 
(3) 005400 000004 18135: SCOPE 
sp 005402 012737 000005 001160 MOV #5,STIMES 7:00 5 ITERATIONS 
6378 005410 012777 000367 173730 MOV #367.,a1BS 7SET ACC,TON,LON,REM,EOP, AND TCS. 
6379 005416 5 RESET SISSUE SYS INIT. 
6380 005420 105777 173722 TSTB als 3DID THEY ALL CLEAR? 
6381 005424 001401 BEQ TST36 33 
6382 
7 SSSSS$SSSES>>> ERROR <<<S$SSSSSSES 
(1) 
(1) 005426 104001 ERROR 1 3/MODULE FAULT DETECTED: 


a a a em iw ne ee 


a nn rn me en ee eee 


'MAINDEC=11-CNIBA=A MACY11 30(1046) 15=DEC-82 16:09 PAGE 57-30 
|CNIBAA.P11 10=DEC-82 15:35 135 *TEST THAT BUS INIT CLEARS ACC,TON,LON,REM,EIP,TCS SEQ 0032 
| 6383 BUS INIT FAILED TO CLEAR CSR. 
| 6384 
— 1 S$SS$$S$$S*°* ERROR **“SSSSSSSSSS 
6387 J RRERAAAAAAAAAORAEEEEEEEE EERE EEEEERERERERREREREEARERAEEREREEREERE 
(3) tSTEST 36 *TEST IBC CLEARS ACC,TON,LON,REM AND EOP 
(3) ReRRRRERERREREREEEREREEEEREREERAEREREREERRERERERREREREEEREREERE 
(2) 005430 000004 +8136: SCOPE 
As) 005432 012737 000005 001160 MOV #5, STIMES ::D0 5 ITERATIONS 
6389 005440 012777 000266 173700 V #266 als. :SET ACC, TONLON,REM, 
6390 005446 052777 000010 173672 BIS #B1T3,a [SET IBC, THIS gROULD. CLEAR ABOVE BITS. 
6391 005454 032777 000010 173664 1$: BIT #B1T3, oies 3WAIT TILL IBS CLEARS 
6392 005462 001374 BNE 1 
6393 005464 032777 000266 173654 BIT #266, a1BS DID THEY CLEAR? 
6394 005472 001401 BEQ TST3? $3 
6395 
s$S$SSSSSSSS>>> ERROR <<<SS$SSSSSSSS 
(1) 
(1) 005474 104001 ERROR 1 3/MODULE FAULT DETECTED: 
6396 TACC,TON,LON,REM, AND/OR EOP 
6397 SFAILED TO CLEAR ON IBC 
ne p:S$$SS$$S$$$**°* ERROR “*“SSSSSSSSSS 
6400 FERRARA REAERAEEAEEAAAEEAEREREEEREAEEERERAEEAAEEEEAEEREREEEREREEEEE 
(3) tSTEST 37 *TEST THAT BUS INIT INDIRECTLY CLEARS IBD 
(3) a eat a ran 
(2) 005476 000004 18137: SCOPE 
ayy 005500 012737 000005 001160 MOV #5, STIMES :2D0 5 ITERATIONS 
6402 005506 012777 000260 173632 MOV #B1T7:BITS‘BIT4, @1BS ;SET ACC,TON, AND LON. 
6403 005514 012777 000377 173626 MOV #377,a * 18D 
6404 005522 000005 RESET sISSUE SYS INIT. 
6405 005524 105777 173620 TSTB «= @IBD ‘DID IT CLEAR? 
6406 005530 001401 BEQ TST40 33 
6407 
2 S$SSS$SSS$$E$S>>> ERROR <<<S$S$SSSSSSSS 
(1) 
(1) 005532 104002 ERROR 2 :/MODULE FAULT DETECTED: 
6408 SFAILED TO CLEAR LOW BYTE OF IBD ON 
6409 [SYSTEM INIT 
note 1:S$$$$S$$$$°°* ERROR “**S$SSSSSSSSS 
6412 .SBTTL 
6413 *SBTTL INTERRUPT TESTS 
otis ~SBTTL 





——— ee 
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H 
|MAINDEC=11-CNIBA~A MACY11 30(1046) 15-DEC-82_ 16:09 PAGE 57-31 
| CNIBAA.P11 10-DEC-82 15:35 T40 *TEST THAT CMD CAN GENERATE AN INTERRUPT B SEQ 0033 


| 6616 seeeeeeeeetaaeeeeeeeeeeeeeeereeeeeeeeeeereteeatereerereneeerers 
| @ tS TEST 40 *TEST THAT CMD CAN GENERATE AN INTERRUPT B 

| (3) oRERERAEAEAAEEAEEREREESEEEEAEEEAEAAAEEAAEEAARAAEAAEREAEEEAEEREEE 
(2) 005534 000004 ‘$140: SCOPE 

6417 

6418 005536 005077 173604 CLR ales :CLEAR THE CSR. 

6419 005542 012777 00°200 173636 MOV , 

6420 005550 012777 00 506 173604 MOV #1$,avECTC SET up INTERRUPT VECTOR 

a 005556 052777 000101 173562 BIS #B1TO!BIT6,aIBS : :SEr TCS, SHOULD CAUSE 
(1) 005564 012746 000000 MOV #0,-(SP) :/SET CPU PRIORITY ON RETURN 
(1) 005570 012746 005576 MOV seks. (SP) :/SHOW RETURN ADDRESS 
(1) 005574 000002 RTI :/CAUSE A SE TURN (PUTS NEW STATUS 
(1) 005576 64$: :/IN STAT US REG.) 

6423 005576 000240 NOP [CMD TO SET AND GIVE US AN 

6424 005600 000240 NOP : INTER RRUPT. 

6425 

s:$$$S$$S$SS$>>> ERROR <<<S$$SSSSSSSS 
(1) 
(1) 005602 104001 ERROR 1 :/MODULE FAULT DETECTED: 
6426 :CMD FAILED TO GENERATE AN INTERRUPT. 
: :SS$$SSS$S$E°°* ERROR “““SSSSSSSSSS 
6428 005604 000402 BR 2$ 
6429 005606 1$: 
(1) 005606 062706 000004 ADD #4,5P :/ADD #4 TO STACK POINTER. 

6450 005612 005077 173530 2s: CLR alas ECLEAR I INTERRUPT 
(1) 005616 013777 001406 173536 MOV PRC avECTC ; RESTORE VECTOR FOR 

Ba 012777 004700 173554 MOV #4700, aPRC :/ILLEGAL INTRO. 

6433 FRRAAE AEE AREAAAAAAERAAAAAAAAAAEEAEEAARAEREEAAAEAAAERAARAERERAEEEE 
(3) TEST 41 *TEST THAT TKR AND LNR CAN GENERATE INTERRUPTS 
(3, FRRAAAAAAEAEAAREAEERAAAAAATAAAAAAAAAEAAEEREAAAAAEERRERERAREAERES 
(2) 005632 000004 T8141: SCOPE 

6434 005634 012777 000200 173544 MOV aPR 

6435 005642 012777 005726 173512 MOV #i$.avectC rSET UP INTERRUPT VECTOR FOR TKR INTERRUPT 

6436 005650 012777 173470 MOV #BIT4'BITS,aIBS :SET T 

6457 005656 052777 000100 173462 BIS #8116,a1BS ZALL OW OUNTERRUPY 
(1) 005664 012746 000000 MOV -(SP) :/SET cPu PRIORITY ON RETURN 
(1) 005670 012746 005676 MOV sels ota) :/SHOW RETURN 
(1) 005674 000002 RTI :/CAUSE A SE TURN (PUTS NEW STATUS 
(1) 005676 64$: :/IN STATUS REG.) 

6439 005676 000240 NOP 

6440 005700 000240 NOP 


72 SSSSSSSSSS>>> ERROR <<<SSSSSSSSSS 


ERROR 1 ;/MODULE FAULT DETECTED: 





-—_ ----- we ee ee a - + es oe ae oo ee - 


| 3 
| MAINDEC-11-CNIBA=A MACY11 30(1046) Bt ee 16:09 PAGE 57- {, 


/CNIBAA.P11 == 10=DEC~82 15:35 *TEST THAT TKR AND LNR CAN GENERATE INTERRUPTS SEQ 0034 
| 6442 :FAILED TO GENERATE A TKR INTERRUPT. 
is sssssssssso* ERROR a or ys a 
| ores 005704 005077 173436 Cir ales LR CSR 
| ~¢1) 005710 013777 001406 173444 MOV PRC, avECTC ; vmesiiat VECTOR FOR 
1) 005716 «012777 «004700 173462 MOV #4700, aPRC 3/ILLEGAL INTRO. 
G46 005724 000443 BR TST42 33 
6448 005726 1$: 
ld 005726 062706 000004 ADD #4,SP ;7ADD #4 TO STACK POINTER. 
(1) 005732 013777 001406 173422 MOV PRC ,aVECTC ;/RESTORE VECTOR FOR 
(1) 005740 012777 004700 173440 MOV #4700, aPRC :/ILLEGAL INTRO. 
| 6450 005746 012777 000200 173434 MOV #200, @PRO 
| 6451 005754 012777 006010 173402 MOV #2$,aVECTD :SET UP FOR LNR INTERRUPT. 
(1) 005762 012746 000000 MOV - :/SET CPU PRIORITY ON RETURN 
(1) 005766 012746 005774 MOV 7088 5(SP) HOW RETURN ADDRESS 
(1) 005772 000002 RTI < TCAUSE A RETURN (PUTS NEW STATUS 
(1) 005774 65$: :/IN STATUS REG. 
6453 005774 105277 173350 INCB = @IBD :SEND DATA = CLRS TKR SETS LNR 
6454 [FOR INTERRUPT 
6455 006000 000240 NOP 
6456 006002 000240 NOP 
6457 
s2$$SSSSS$SS$>>> ERROR <<<S$SSSSSSSS 
(1) 
(1) 006004 104001 ERROR 1 :/MODULE FAULT DETECTED: 
6458 SFAILED TO GENERATE LNR INTERRUPT 
:$$$S$$$$S$°°* ERROR “*“SSSSSSSSSS 
6460 006006 000402 BR 3$ 
6462 006010 2s: 
(1) 006010 062706 000004 ADD #4,SP :/ADD #4 TO STACK POINTER. 
6465 006014 005077 173326 3$: CLR albs CLEAR T THE STATUS REG. 
(1) 006020 013777 001410 173336 MOV PRD, aVECTC ; s7mestore VECTOR FOR 
of 006026 012777 004700 173354 MOV #4700, aPRD :/ILLEGAL INTRO. 
6466 FURAAAAAAAAAAAEAAAAAAEAAEAAAERAAAEAAEAEREREAAEAREEARERREREERERES 
(3) tS TEST 42 “TEST THAT ER2 CAN GENERATE AN INTERRUPT 
(3) RASA AAAAAAARASAEAEKESEKEAAEAAARAAEAAAAAAAAAAAEKARAREAEEAAREREEE 
(2) 006034 000004 1$142: SCOPE 
646? 
6468 006036 005077 173304 CLR sSTART WITH CSR CLEAR 
6469 006042 012777 000200 173332 MOV rit @PRA 
6470 006050 012777 006126 173300 MOV #1$,aVECTA :SET UP INTERRUPT VECTOR 
(1) 006056 012746 000200 MOV #200,-(SP) 27SET CPU PRIORITY ON RETURN 
(1) 12746 006070 MOV #64$.-(SP) :/SHOW RETURN ADDRESS 
(1) 006066 000002 RTI */CAUSE A RETURN (PUTS NEW STATUS 


Tt ee 
Ben dias “A MACY11 30(1046) 15-DEC-82 16:09 PAGE 57- $3 
» yet 10=DEC-82 15:35 142 *TEST THAT ER2 CAN GENERATE AN INTERRUPT SEQ 0035 
(1) 006070 648: 371N STATUS REG.) 
g47e 006070 952777 900140 173250 BIS #BITS!BIT6,a1BS :SET TON - No LISTNERS ON 
6473 006076 105077 173246 CLRB © a BD :BUS BUT DAT 
6474 0061 900240 NOP ‘BUS = THEREFORE AN INTERRUPT 
6475 006104 000240 NOP : SHOULD BE POSTED. 
(1) 006106 012746 000000 MOV #0,<(SP) i/SET cPu PRIORITY ON RETURN 
(1) 006112 012746 006120 MOV #65$,-(SP) :/SHOW RETURN A 
(1) 006116 000002 RTI :/CAUSE A Sey URN tbuTs NEW STATUS 
(1) 006120 65$: :/IN STATUS REG.) 
6477 006120 000240 NOP 
6478 
6479 
5 s$$S$$$$SS$$S>>> ERROR <<<$$S$SSSSSS 
(1) 
(1) 006122 104001 ERROR 1 MODULE FAULT DETECTED: 
6480 sPAILED TO INTERRUPT ON ERROR2 
s $$S$SSSS$$°°* ERROR **“S$SSSSSSSSS 
6482 006124 000402 BR 2$ 
6483 006126 1$: 
(1) 006126 062706 000004 ADD #4,SP :/ADD #4 TO STACK POINTER. 
6484 006132 005077 173210 28: CLR ales ECLEAR CSR 
(1) 006136 013777 001402 173212 MOV PRA, aVECTA ; s /RESTORE VECTOR FOR 
sf 006144 012777 004700 173230 MOV #4700, aPRA :/ILLEGAL INTRO. 
6487 ~SBTTL 
6488 “SBTTL SECOND MODULE TESTS 
6489 “SBTTL 
6491 FREER AAEAAEAAEEEREAEAA ARATE ERAAREREREAAEAEAEREEAEEEREAAEREREREE 
(3) tSTEST 43 *TEST THAT MODULE PASSES ‘BIAKI'' 
(3) REE AERAEEREEAEEEEREAEEEEERAAAEAAEAAEAAEAAEARAEAAEAREEAEAEREEEERE 
(2) 006152 000004 18143: SCOPE 
rot 
6503 Z*WARNING! THIS TEST IS DESIGNED TO BE EXERCISED WITH A 
(1) ?*SECOUND MODULE (I1BV-11) WITH SWITCH "ER1 INH 
(1) *ADDRESS OF THE SECOUND MODULE IS IN LOCATION "18S2"* VECTOR 
(1) ADDRESS 1s IN LOCATION ‘VECTA2’*. THE SECOUND IBV-11 SHOULD BE ELECTRICALLY SEC 
(1) 3*TO INHIBIT THE USE OF TESTING WITH A SECOUND MODULE, MAKE 
(1) ; sLOCATION "$cDW1"’ ZERO. 
6504 i 
6505 006154 005737 001254 TST $CDW1 sTESTING WITH 
6506 006160 00100 BNE 3$ SSECOUND 18V11? 
6507 006162 000137 006764 JMP EOP SNO-END PASS. 
6908 006166 3$: 
6510 006166 005077 173154 CLR ales :CLEAR CSR. 
6511 006172 005077 173170 CLR a1BS2 SCLEAR SECOUND MODULE. 
6512 006176 012777 000200 173212 MOV #200, aPRC2 
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CNIBAA.P11 10=DEC-82 15:35 143 *TEST THAT MODULE PASSES "BIAKI"’ SEQ 0036 | 
6515 006204 012777 006242 173164 MOV #1$,avECcTc2 iSET UP VECTOR ADDR. 
(1) 006212 012746 000000 MOV #0,-(SP) 7ST CPU PRIORITY ON RE TURN | 
(1) 006 1g 012746 006224 MOV #64$,-(SP) HOW RETURN ADDRESS | 
(1) 006 3 000002 RTI < TeAUSE A RETURN (PUTS NEW STATUS 
(1) 006224 64$: :/IN STATUS REG.) 
6515 006224 012777 000140 173134 MOV #B1T6!B1TS,a@1BS2 ;SET INTR ENABLE AND TON ON SECOUND 
6516 006232 000240 NOP :1BV = SHOULD CAUSE A TKR INTERRUPT. 
6517 006234 000240 NOP : | 
6518 | 
5: $$$$$$$$$$>>> ERROR <<<$$$SSSSSSS 
(1) 
(1) 006236 104001 ERROR 1 :/MODULE FAULT DETECTED: 
6519 SASSUMING SECOUND MODULE IS G 
6520 SMODULE (IBV-11; UNDER TEST FAILED 
6521 'TO PASS Q BUSS SIENAL 'BTAK 
 :$$$$SS$S$S$E°%" ERROR “““S$SSSSSSSSS 
6523 006240 000402 BR 2$ 
6524 006242 1$: 
(1) 006242 062706 000004 ADD #4,SP :/ADD #4 TO STACK POINTER. 
6325 006246 005077 173114 2$: CLR ales2 3CL CLEAR ySECOUND MODULE 
(1) 006252 013777 001416 173116 MOV PRC2,avECcTC2 RESTORE VECTOR FOR 
AS ) 006260 012777 004700 173130 MOV #4700, aPRC2 3/ILLEGAL INTRO. 
6528 FRREAEEAEREEAAERERAEEEEAERAEEEERAAARAEEREREREEEEEREREREEERREEEEE 
(3) sATEST 46 “TEST THAT SRQ CAN GENERATE AN INTERRUPT 
(3) SRRAREAAEAAREREAEEEAE RE EEEEEEEEEAERERAEAEERREREEEAEAEEEREEREERERE 
(2) 006266 000004 SCOPE 
6529 y*WARNING! THIS TEST I$ DESIGNED TO BE EXERCISED WITH A 
(1) [*SECOUND MODULE (IBV-11) WITH SWITCH “ERI T. 
(1) :*ADDRESS OF THE SECOUND MODULE fs IN LOCATION “1Bs2"" v 
(1) [ADDRESS IS IN LOCATION ‘‘VECTA2’. THE SECOUND IBV-11 SHOULD BE ELECTRICALLY SEC 
(1) :*TO0 INHIBIT THE YsE OF TESTING WITH A SECOUND MODULE, MAKE 
(1) ;*LOCATION "SCDW1"" ZERO. 
6550 i 
6531 006270 005077 173052 CLR ales :CLEAR CSRS. 
6952 006274 005077 173066 CLR alBs2 
6534 006300 012777 900200 173076 MOV #200, aPRB :SET UP INTERRUPT VECTOR. 
6955 006 012777 006352 173044 MOV #1$,aVECTB se 
(1) 006314 012746 000000 MOV #0,-(SP) :/SET CPU PRIORITY ON RETURN 
(1) 006320 012746 006326 MOV #64$,-(SP) °/SHOW RETURN ADDRE 
(1) 006324 2 RTI ?/CAUSE A RETURN (PUTS NEW STATUS 
(1) 006326 64$: 3/IN STATUS REG. 
6537 006526 012777 000100 173012 MOV #100, a1BS LE INTERRUPTS 
6538 006334 052777 100000 173024 BIS #BIT15,aiBS2 SETTING SRO IN THE “cou MODULE 
5 ‘WILL PUT SRQ ON THE [8 BUS 
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CNIBAA.P11  10=DEC=82 15:35 *TEST THAT SRQ CAN GENERATE AN INTERRUPT SEQ 0037 
6542 006344 000240 NOP 
654 
72 SS$SSSSS$$SS>>> ERROR <<<S$SSSSSSSSS 
(1) 
(1) 006346 104001 ERROR 1 z/MODULE FAULT DETECTED: 
6544 :SRQ FAILED TO GENERATE 
6545 [AN INTERRUPT 
 $$SS$$SS$$S°°* ERROR “““S$SSSSSSSSS 
6547 006350 000402 BR 2$ 
6549 006352 1$: 
mo} 006352 062706 000004 ADD #4,SP :/ADD #4 TO STACK POINTER. 
6551 006356 2s: at 
(1) 006356 013777 001404 172774 MOV PRB, aVECTB ; sanestore VECTOR FOR 
(1) 006364 012777 004700 173012 MOV #4700, aPRB :/ILLEGAL INTRO. 
6552 006372 005077 172750 CLR alBs [CLEAR CSRS 
6995 006376 005077 172764 CLR a1es2 
6555 FRRAAAEAAARERAEREEREREEEREEEEEEREREREEEREREREEEEEEREREREEEEEEEEE 
(3) TEST 45 “TEST THAT ERROR? IS GENERATED IF ATN IS ON THE IB BUS 
(3) FRAAAAEAEAEAERAAEAEETERERETAEEEEAEAEEEEREEREEREREEREREEREREREEEE 
(2) 006402 000004 18145: SCOPE 
8 
6557 s*WARNING! THIS TEST IS DESIGNED TO BE, EXERCISED WITH A 
(1) t*SECOUND MODULE (IBV-11) WITH SWITCH "ER1 INH’ 
(1) S*ADDRESS OF THE SECOUND MODULE IS IN LOCATION ""IBS2"* VECTOR 
(1) 3*ADDRESS IS IN LOCATION ECTA2"* THE SECOUND IBV-11 SHOULD BE ELECTRICALLY SEC 
(1) *TO INHIBIT THE USE OF TESTING WITH A SECOUND MODULE, MAKE 
(1) ; *LOCATION ""ScDW1"’ ZERO. 
6538 i 
6559 006404 005077 172756 CLR a1Bs2 :CLR CSR OF 2ND MODULE. 
6560 006410 005277 172752 INC alBs2 SASSERT ATN ON IB BU 
6561 SASSERTED ATN ON IBV UNDER TEST- 
6562 ZTHIS SHOULD CAUSE AN ERROR 1 
6563 TSENCE THE eND 18V HAS ATN SET. 
6564 006414 032777 020000 172724 BIT #81113, a1BS :D1D ERROR 1 
6565 006422 001001 BNE TST46 33 
6566 
s2SSSSSSSS$$$S>>> ERROR <<<S$SSS$SSSS$S 
(1) 
(1) 006424 104001 ERROR 1 :/MODULE FAULT DETECTED: 
6567 ‘FAILED TO GENERATE ERROR 1 
soni 1 2S$$$S$$$S$$$*** ERROR “““S$SSSSSSSSS 
6570 FEA AAEAERAEARERE TA TAEEEAEEAEEEAERERAEEEEEREREEEEREEERERERE 
(3) tSTEST 46 *TEST THAT ERROR 1 IS GENERATED IF IFC IS PUT ON IB BUS BY SECOUND MODUL 
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CNIBAA.P11 § 10=DEC=82 15:35 146 —-« * TEST THAT ERROR 1 IS GENERATED IF IFC IS PUT ON I6 BUS BY SECOUND MODULE SEQ 0038 | 
(3) © EEA AEAEAAAEEREEAERERAERERAEEEEEAAEAAAAAAEAEAEREARAAAAEAEERAEEREREEKE 
(2) 006426 000004 T§T46: SCOPE 
(1) 006430 012737 000005 001160 MOV #5, STIMES :D0 5_ ITERATIONS 
6571 ;*WARNING! “THIS TEST 1S DESIGNED TO BE EXERCISED WITH A 
(1) 3*SECOUND MODULE (1BV-11) WITH SWITCH “ERT INH 
(1) S*ADDRESS OF THE SECOUND HODULE JS IN LOCATION “IBS2"* VECTO 
(1) Z*ADDRESS I$ IN LOCATION ‘‘VECTA2’'. THE SECOUND IBV-11 SHOULD BE ELECTRICALLY SEC 
(1) 3*TO INHIBIT THE YSE OF TESTING WITH A SECOUND MODULE, MAKE 
(1) ;*LOCATION “'$CDW1" 
6572 006436 005077 172704 fir al CLEAR CSR 
6573 006442 012777 000010 172716 #0113, 01882 ASSERT IFC_FROM TESTOR 
6574 006450 032777 020000 172670 Bit #B TiS BS D ERROR 1 GET SET? 
6575 :IF SO = NEXT TEST 
6576 006456 001010 BNE 
6577 006460 012777 000010 172700 MOV #B1TS,a18S2 fF NOT WE'LL TRY AGAIN SENCE MEMORY 
6578 006466 032777 020000 172652 Bit #BT1$-a1BS ;REFRESH COULD HAVE GO IN THE WAY. 
6579 006474 001001 BNE  - TST47 33 
6580 
3 S$$$SSSS$$>>> ERROR <<<S$$S$SSSSSSS 
(1) 
(1) 006476 104001 ERROR 1 :/MODULE FAULT DETECTED: 
6581 ZERROR 1 FAILED TO SET WHEN 
6582 z1FC WAS ON IB-BUS AND MODULE 
6583 3UNDER TEST DIDN'T PUT IT THERE. 
aes 3 :SSSSSSSSSS“** ERROR “““SSSSSSSSSS 
6586 FRAAAAAEAAAEEEREREEEEEEEEEEEEEREREEREREEAEEEREREEREKEEREREREEEKE 
(3) iSTEST 47 *TEST THAT ERROR 1 IS GENERATED IF REN IS ON IB BUS 
(3) SREEREEEAEAEAEAAEEEEREREAEAEAAEAEAAAAAEARARAAEREAEEEAAAAEREAEEEEAEEEEE 
(2) 006500 000004 18147: SCOPE 
6587 
6588 :*WARNING! THIS TEST IS DESIGNED TO BE, EXERCISED WITH A 
3 *SECOUND MODULE (1BV-11) WITH SWITCH “ERI > 


(1) 

(1) Z*ADDRESS OF THE Sti a opt e te t IN LOCATION “*IBS2"* VECTOR 

(1) Z*ADDRESS IS ie LOCATION *'VECT THE SECOUND IBV-11 SHOULD BE ELECTRICALLY SEC 
(1) :*T0 INHIBIT T ee 4 ae WITH A SECOUND MODULE, MAKE 

; ’ ; s*LOCATION ‘scbut" 


6589 

6590 006502 005077 172640 CLR alBs sCLEAR CSRS. 

6591 006506 005077 172654 CLR oiss 

6592 006512 052777 000004 172646 BIS #B1T2,alBS2 sASSERT REN ON IB BUS — 2ND 
6593 ;MODULE. 1ST IBV-11 SHOULD 

6594 806520 032777 020000 172620 BIT #81T13,a1B8S 3 GENERATE AN ERROR 1;DID IT?? 
oo? 006526 001001 BNE TST50 3 


s7$SSSS$SS$SS>>> ERROR <<<S$SSSSSSSS 
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172626 
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090200 
006616 


000100 
000000 
006600 


000004 
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ERROR 1 s/MODULE FAULT DETECTED: 
FAILED TO GENERATE AN ERROR 1. 


3 SSSSSSSSSS°°* ERROR “*“SSSSSSSSSS 


ERRPRREAAAERAAERAAEEAATAAATEEAATEAAAEAAARAAARERAAREAAAAeA Tet 
TEST 50 *TEST THAT AN ERROR 1 CAN GENERATE AN INTERRUPT 
RERREARERARAREAAREEEE TEA AREEEEAEARERERAAAAREATEAEKERE RATE ee 


18150: SCOPE 


s*WARNING! THIS TEST IS DESIGNED TO BE yt WITH A 

3*SECOUND MODULE (IBV-11) WITH SWITCH "ER1 INH’ 5 

Z*ADDRESS OF THE SECOUND MODULE IS IN LOCATION “"TBS2"* Vv 

See tank IS IN LOCATION ‘‘VECTA2"’, THE SECOUND IBV-11 SHOULD BE ELECTRICALLY SEC 
O INHIBIT THE HSE id Rescues WITH A SECOUND MODULE, MAKE 

$ LOCATION ‘SCDW1"* ZERO 


CLR alBs2 ZCLEAR CSRS. 
CLR alBs 
172630 MOV #200, aPRA 
172576 MOV #1$,aVECTA zSET UP VECTOR ADDR. 
172560 BIS #81T06,a1BS :SET INTERRUPT ENABLE 
MOV #0,-(SP) z/SET CPU PRIORITY ON RETURN 
MOV #64$,-(SP) /SHOW RETURN 
RTI :/ CAUSE A RETURN (PUTS NEW STATUS 
64$: :/IN STATUS REG.) 
172560 BIS #8112, a1BS2 SGENERATE AN ERROR 1 AS PER LAST TEST. 
NOP 
s2SSSSSS$$$E>>> ERROR <<<SSSSSSSSSS 
ERROR 1 ;/MODULE FAULT DETECTED: 
ZERROR 1 FAILED TO GENERATE AN INTR. 
: :$$$SSSSS$$°** ERROR “*“SSSSSSSSSS 
BR 2s 
1$: 
ADD #4.SP 7/ADD #4 TO STACK POINTER. 
2s: ihe) e+ 
P25, Said MTS 8 Mes sive ie 
172544 MOV ai 76y. ape 3/1 tL ee INTRO. 
CLR 218S ZCLEAR CSRS. 
CLR aigse 


23 eeeetecer te qeteeeeeercercerererses? tee0% ete eececceetese eeeeeete. set 
‘4 


*TEST THAT ERROR 1 IS GENERATED IF REN IS ON IB BUS SEQ 0039 | 


ee ee ee ee ee 
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CNIBAA.P11 -10=DEC=82 15:35 151 *TEST THAT DATA CAN BE XFERRED BETWEEN THE MODULE UNDER TEST AND THE KGM SEQ 0040 | 

(3) s*TEST 51 sTEST THAT DATA CAN BE XFERRED BETWEEN THE MODULE UNDER TEST AND THE KGM 
(4) KGM = KNOWN GOOD MODULE 
(4) SIN THIS test" We LLM AKE THE akon A LISTENER 
(4) ie AND THE MODULE UNDER TEST A TALK 
(4) s*WE'VE ALREADY SFERRED DATA TO AND FROM THE IB-BUS 
(4) [VIA THE MODULE UNDER TEST. THE ONLY 
(4) 31S THE CABLE CONNECTING THE KGM TO THE MODULE UNDER TEST, 
23 3sAS WELL AS THE KGM. 
(3) atneneiensencenneeeeseneneeerencenqenteeneeneenteneeeneqertens 
(2) 006646 000004 18151: SCOPE 

6687 

6638 006650 012737 006670 001110 MOV #1$,S$LPERR :SET ERROR LOOP. 

6639 006656 012737 900090 001124 MOV #0,$GDDAT ?START PATTERN. 

6640 005037 001126 CLR SBDDAT 

6642 006670 005077 172452 1$: CLR a1es :CLEAR CSRS. 

6643 006674 005077 172466 CLR aiBs2 

6644 006700 052777 jo0de! 172440 BIS oaiTs!BITO @IBS ;SET TON AND TCS. 

6645 006706 052777 000020 172452 BIS #B1T4.alBSe :SET LON ON KGM. 

6646 006714 013777 001124 172426 MOV SGDDAT,@18D 3 SEND PATTERN. 

6647 006722 117737 172442 001126 MOVB  a@I18D2,$BDDAT READ ATA FROM KGM. 

6648 006730 123737 001124 001126 CMPB SGDDAT.SBDDAT A SENT = DATA RECEIVED? 

6649 006736 001402 BEQ ves. CONTINUE 

6650 

ss $S$SS$SS$$$>>> ERROR <<<$S$S$SSSS$ 

(1) 
(1) 006740 104004 ERROR 4 3 (MODULE FAULT DETECTED: 

6651 = BAD DATA PASSED BETWEEN 

6652 <RODGLE UNDER TEST AND KGM. 

:SSSSSSSSS8°"* ERROR “““SSSSSSSSSS 

6654 006742 000407 ak $T52 33 

6656 006744 105237 001124 2$: INCB = $GDDAT : CHANGE PATTERN. 

6697 006750 001347 BNE 1$ SIF NOT DONE, CONTINUE. 

6659 006752 005077 172370 CLR ales ICLEAR CSR'S 

6660 006756 005077 172404 CLR a1Bs2 

6662 3 3 SRAAAAAAAEAAAEAAAARAAAEAAATAAAEAEAAAAKARAARAAAAAAAARAARAARAAERAREREEEREE 
(3) T*TEST 52 *TEMP END OF TESTS 
(3) SRAEAEATAAAAAAEAAAAAARAAAAAAEATAARAAAAARAAARAARAAARAAERARARAEAAAREAREEREE 
(2) 006762 000004 18152: SCOPE 

6663 | 

6664 006764 EOP: 

6665 

6666 .SBTTL SYSMAC ROUTINES: 

6668 .SBTTL END OF PASS ROUTINE 
(2) SF AEAAAAAAAAAEAEAAAARERAEAAAAAAAAAAEAAAERAREREEAAAEAAAERERREEEEREREE 


i a ee ee ee ee. ee ee se — 


_———— 


MAINDEC= 
CNI 


> 
ry 
p aI 


10=DEC=82 15:35 


006764 

006764 000004 

06766 005037 001102 
006772 0050357 001160 
006776 005237 001202 
007002 042737 100000 
007010 005327 

007012 000001 

007014 go506s 

007016 012737 

007020 000001 

007022 007012 

007024 104401 007071 
007030 013746 001202 
007034 104405 


007036 104401 007066 
007042 013700 000042 
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F PASS ROUTINE 


;SINCREMENT THE PASS NUMBER (SPASS) 

ESTYPE TEND PASS AXXXXX” (WHERE XXXXX IS A DECIMAL NUMBER) 
i#IF THERES A MONITOR GO TO IT 

3*1F THERE ISN'T JUMP TO RSTART 


SEOP: 
SCOPE 
CLR STSTNM i ZERO THE TEST NUMBER 
CLR STIMES :ZERO THE NUMBER OF ITERATIONS 
INC SPASS :EINCREMENT 1 THE PASS NUMBER 
BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
DEC (PC)+ +: LOOP? 
SEOPCT: .WORD 1 
BGT $DOAGN rr Yes 
MOV (PC)+,a(PC)+  3:RESTORE COUNTER 
SENDCT: .WORD 1 
$EOPCT 
TYPE SENDMG r:TYPE "END PASS #*° 
MOV $PASS,-(SP) 33SAVE SPASS FOR TYPEOUT 
TYPDS :GO TYPE==-DECIMAL ASCII WITH SIGN 
TYPE SENULL t:TYPE A NULL CHARACTER 
$GET42: MOV a#42,R0 ::GET MONITOR ADDRESS 
SDOAGN 7 :BRANCH IF NO 
RESET T:CLEAR THE WORLD 
SENDAD: JSR PC, (RO) 2:60 TO MONIT 
NOP ':SAVE RO 
NOP TIFOR 
NOP sgACT11 
SDOAGN: 


JMP a(PC)+ 3 sRETURN 
SRTNAD: .WORD RSTART 


SENULL: .BYTE #NULL CHARACTER STRING 
SENDMG: .ASCIZ <18>c15>/END PASS’ # 
:/DELMA 
: /ROUTINE TO PROVIDE DELAYS IN INCREMENTS OF 25 US 
t/ CALL= JSR RS,DELSO 
:/ : (# OF 25 US TO DELAY) 
y SRETURNS HERE 
DELSO: MOV (5)+,RO :/GET # OF 25 US DELAYS 
1$: MOV #2.,R1 31a FOR LOOP TO DO 50 US. 
2$: DEC R1 
BNE 2$ :/WALTED 25. 
DEC RO ; /DONE # OF 50. Us SDELAY DESIRED? 
BNE 1$ ?/NO = NEXT ONE. 
RTS R5 S/YES = EXIT. 


-SBTTL ERROR HANDLER ROUTINE 


SEQ 0041 


——_------------- 
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BAA.P 10=DEC=82 15:35 ERROR HANDLER ROUTINE SEQ 0042 
(2) FRAAAAAAAAAAAAAAAREEEE EAE EAE REAEAAAREARAREEEEEEERREREEHEEEEREERERE 
(1) tSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) [*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) :#AND GO TO SER ROR 
(1) I THE SWITCH GPTLONS $" PROVIDED BY THIS ROUTINE ARE: 
ce 
(1) Peet inniett ERROR TYPEOUTS 
(1) 2 *SW10=1 BELL ON ERROR 
(1) *§W09=1 LOOP ON ERROR 
(1) 7 *CALL 
(1) 3* ERROR N ::ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 007126 SERROR 
(1) 007126 104407 CKSWR 3 TEST FOR CHANGE IN SOF T=SWR 
(1) 0071 105237 001103 7$: INCB $ERFLG i3SET THE ERROR FLAG 
(1) 007134 001775 BEQ 7$ ON'T LET noe FLAG GO TO ZERO 
(1) 007136 013777 001102 171776 MOV STSTNM,@DISPLAY SO USPLAY TEST NUMBER AND ERROR FLAG 
(1) 007144 032777 002000 171766 BIT #B1T10,aSWR 33BELL ON ERROR? 
(1) 007152 001402 BEQ 1$ :NO = SKIP 
(1) 007154 104401 001164 TYPE SBELL 3 IRING BELL 
(1) 007160 005237 001112 1$: INC $ERTTL :COUNT THE NUMBER OF ERRORS 
(1) 007164 011637 001116 MOV (SP) , SERRPC TIGET ADDRESS OF ERROR INSTRUCTION 
(1) 007170 162737 000002 001116 SUB #2, SERRPC 
(1) 007176 117737 171714 001114 MOVB a@SERRPC,S$ITEMB :;:STRIP AND SAVE THE ERROR ITEM CODE 
(1) 007204 032777 020000 171726 BIT #B1T13,aSWR 3 SKIP TYPEOUT IF SET 
(1) 007212 001004 BNE 2 :SKIP TYPEOUTS 
(1) 007214 004737 007314 JSR PC, SERRTYP £:G0 TO USER ERROR ROUTINE 
(1) 9072 9 104401 001171 sah TYPE  ,$CRLF 
(1) 007224 122737 000001 001214 CMPB #APTENV,SENV  ;;RUNNING IN APT MODE 
(1) 007232 001007 BNE 2$ 3NO,SKIP APT ERROR REPORT 
(1) 007234 113737 001114 007246 MOVB SITEMB, i218 ‘SET ITEM NUMBER AS ERROR NUMBER 
(1) 007242 004737 011460 JSR PC, SAT [REPORT FATAL ERROR TO APT 
(1) 007246 000 21$: BYTE 0 
(1) 007247 000 “BYTE 0 
(1) 007250 000777 22$: BR 228 :APT ERROR LOOP 
(1) 007252 005777 171662 2$: TST aswR ::HALT ON ERROR 
(1) 007256 100002 BPL 3$ *:SKIP IF CONTINUE 
(1) 007260 HALT ::HALT ON ERROR! 
(1) 007262 104407 CKSWR iETEST FOR CHANGE IN SOFT-SWR 
(1) 007264 032777 001000 171646 3%: BIT #81T09,aSwR t:LOOP ON ERROR SWITCH SET? 
(1) 007272 001402 BEQ ::BR IF NO 
(1) 007274 013716 001110 MOV SLPERR, (SP) + FUDGE RETURN FOR LOOPING 
(1) 007300 005737 001162 4$: TST SESCAPE 33 CHECK FOR AN ESCAPE ADDRESS 
(1) 007304 001402 BEQ 5$ [BR IF NONE 
(1) 007306 013716 001162 * MOV SESCAPE, (SP) + Pop Ge RETURN ADDRESS FOR ESCAPE 
(1) 007312 000002 RTI > RETURN 
667 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) FERRARA AEEEREEEAAAEEEEEEEAEEEEAERATERARAAERAEEAEREEERERAEEEREREEES 
(1) ZSTHIS ROUTINE USES THE “ITEM CONTROL eyTe™ (SITEMB) TO DETERMINE WHICH 
(1) S*ERROR IS TO BE REPORTED. IT THEN OBTAINS, F ‘ERROR TABLE’ (S$ERRTB), 
(1) StAND REPORTS THE APPROPRIATE [Nr ORMAT ION CONCERNING THE ERROR. 
(1) 007314 SERRTYP: 
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CNIBAA.P11 10=DEC-82 15:35 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0043 
(1) 007314 104401 001171 TYPE £3 CARRIAGE RETURN’ & “LINE FEED" 
(1) 007320 010046 MOV ad. RESP) 

| €1) 007322 005000 CLR + BT CKUP THE ITEM INDEX 
(1) 007324 153700 001114 BISB RPSITEMB,.RO 
(1) 007330 001004 BNE 1$ zz IF ITEM NUMBER IS ZERO, JUST 
(1) S: TYPE THE PC OF THE ERROR 
(2) 007332 013746 001116 MOV SERRPC,-(SP)  3:SAVE SERRPC FOR TYPEOUT 
(2) 33 RROR ADDRESS 
(2) 007336 104402 TYPOC 33G0_TYPE==OCTAL ASCIICALL DIGITS) 
(1) 007340 26 BR 6S :GET OUT 
(1) 007342 005300 1$: DEC RO i ADJUST THE INDEX SO THAT IT WILL 
(1) 007344 006300 ASL RO 3: WORK FOR THE ERROR TABLE 
(1) 007346 006300 ASL RO 
(1) 007350 006300 ASL RO 
(1) 007352 062700 001256 ADD #SERRTB,RO s3FORM TABLE POINTER 
(1) 007356 012037 007366 MOV (RO)+,28 SIPICKUP "ERROR MESSAGE’’ POINTER 
(1) 007 001404 BEQ 3:SKIP TYPEOUT IF NO POINTER 
(1) 007364 104401 TYPE i:TYPE THE “ERROR MESSAGE 
(1) 007 000000 2$: .WORD 0 Z:ERROR MESSAGE’ POINTER GOES HERE 
(1) 007370 104401 001171 TYPE  ,S$CRLF 33 CARRIAGE RETURN’ & “LINE FEED 
(1) 007374 012037 007404 3S: MOV (RO)+,4$ ::PICKUP ‘DATA HEADER" POINTER 
(1) 007400 091404 BEQ 5$ +: SKIP uF OUT IFO 
(1) 007402 104401 TYPE 3: THE “DATA HE ‘ 

(1) 007404 000000 4$: .WORD 0 "DATA HEADER’ POINTER GOES HERE 
(1) 007406 104401 001171 TYPE  ,S$CRLF 3:'CARRIAGE RETURN’ & “LINE FEED" 
(1) 007412 011000 5$: MOV (RO) RO ::PICKUP “DATA TABLE’ POINTER 
(1) 007414 001004 BNE 7$ $:G0 TYPE THE DATA 
(1) 007416 012600 6$: MOV (SP)+,RO T:RESTORE R 
(1) 007420 104401 001171 TYPE  ,S$CRLF re"‘CARRIAGE RETURN’ & "LINE FEED" 
(1) 007424 000207 RTS PC + SRETURN 
(1) 007426 7$: 
(2) 007426 013046 MOV @(RO)+,-(SP)  s;SAVE @(RO)+ FOR TYPEOUT 
(2) 007430 104402 TYPOC 3360 TYPE--OCTAL ASCIICALL DIGITS) 
(1) 007432 005710 TST (RO) 331S THERE ANOTHER NUMBER? 
(1) 007434 001770 BEQ 68 [BR IF NO 
(1) 007436 104401 007444 TYPE 8$ :ITYPE TWO(2) SPACES 
(1) 007442 000771 BR $ t: 
(1) 007444 020040 000 8$: -ASCIZ / 7 7: TWO(2) SPACES 
(1) 007450 EVEN 
6672 .SBTTL SCOPE HANDLER ROUTINESTARS 
(1) Z*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(1) ;*AND LOAD THE Test NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) [*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
(1) ; *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) = eSW14=1 LOOP ON TEST 
(1) :*SwW11=1 INHIBIT ITERATIONS 
(1) *SWO9=1 LOOP ON ERROR 
(1) *SWwOB=1 LOOP ON TEST IN SWR<7:0> 
(1) S*CALL 
(1) ie SCOPE ::SCOPE=I0T 
(1) 007450 SSCOPE: 
(1) 007450 104407 CKSWR s:TEST FOR CHANGE IN SOFT=SWR 
(2) 007452 104407 CKSWR 
(1) 007454 032777 040000 171456 1$: BIT #BIT14,aSWR ::LOOP ON PRESENT TEST? 
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SCOPE HANDLER ROUTINESTARS 


SOVER 
jAARHNSTART OF CODE FOR THE XOR FéstEndeets 
$xTSTR 68 I 


5$: 


mene a OF 


2$: 


7$: 
4$: 


3$: 


1$: 
SSVLAD: 


SOVER: 


SMXCNT: 


@#ERRVEC ,-(SP) 
#98, aFERRVEC 


a#1?7706 

(SP) +, a#ERRVEC 
$SVLAD 

(SP)+, (SP)+ 
(SP) +, a#ERRVEC 


‘C0 
CODE FOR THE non’ TESTERA¥AY 
#8 WR 


1T08,aSW 

aSWR,STSTNM 
SOVER 

SERFLG 

SERMAX ,SERFLG 
#81T09,asuR 
SLPERR,SLPADR 
SOVER 


1$ 
#81T11,aSwR 
$SPASS 

1$ 


SICNT 

SOvER oSICNT 
1,$ICNT 

SHiCNT STINES 

STSTNM 


STSTNM, eres 
(SP) ,SLPADR 
(SP) SLPERR 
SESCAPE 


#1, SERMAX 
STSTNM,@DISPLAY 


SLPADR , (SP) 


0. 
-SBTTL TTY INPUT ROUTINE 


FREE AAEA AA EEAEAAAAAEREREREA AEE AEAAAAAAAAAEAREREREREEAEEEEEEES 


- ENABL 


LSB 


IF $1421 
:sIF NG ON THE “‘XOR'’ TESTER CHANGE 
S:THIS INSTRUCTION TO A "NOP’' (NOP=240) 
SISAVE THE CONTENTS OF THE ERROR VECTOR 
7:SET FOR TIMEOUT 
3: OUT ON XOR? 
;3RESTORE THE ERROR VECTOR 
7G0 TO THE NEXT TEST 
SECLEAR THE STACK AFTER A TIME OUT 
ESTORE THE ERROR VECTOR 
OP ON THE PRESENT TEST 
P ON SPEC. TEST? 
:TON THE RIGHT TEST? 
T:HAS AN ERROR OCCURRED? 
3;8R IF NO 
T:MAX. ERRORS FOR THIS TEST OCCURRED? 
3 LOOP _ON ERROR? 
::SET LOOP ADDRESS TO LAST SCOPE 
HtEehn ERROR FLAG 


L 
3;ESCAPE TO THE NEXT 
2 ae a ITERATIONS? 
;;BR IF YES 
331F FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
33 INCREMENT ITERATION COUNT 
23CH HECK THE NUMBER OF ITERATIONS MADE 
2BR IF MORE ITERATION REQUIRED 
S REINITIALIZE THE ITERATION COUNTER 
33SET at OF ITERATIONS TO DO 


NUMBERS 
T TEST NUMBER IN APT MAILBOX 
DDRESS 


SWR<7:0> 


; E ER OOP ADDRESS 

$ECLEAR THE eon} FROM ERROR ADDRESS 
LY ALLOW ONE(1) ERROR ON NEXT TEST 

7:DISPLAY TEST NUMBER 

2 3FUDGE -- ue ADDRESS 


XES 
3MAX. NUMBER OF ITERATIONS 


FRAAEEAAAEAEEEAEHAREE AT EEAEEEEEEEAAEERERAAAEREEAREEKEREREEHEREREE 
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/CNIBAA.PT1 10=DEC=82 15:35 TINE SEQ 0045 
i s*ROUTINE 1S ENTERED FROM THE TRAP HANDLER WILL 
| 6¢@4)  *SERVICE THE TEST FOR CHANGE IN SOFTWARE gulten” REGISTER TRAP CALL 
| WMD *WHEN OPERATING IN TTY FLAG MODE. 
| €1) 007732 022737 000176 001140 $ckSUR: CMP #SUREG. SUR 3:1S THE SOFT=SWR SELECTED? 
' 1) 007740 001074 BNE 15$ [BRANCH IF NO 

(1) 007742 105777 171176 TST8 = @STKS 3 CHAR THERE ? 

(1) 007746 100071 BPL 15$ :IF NO, DON'T WAIT AROUND 

(1) 007750 117746 171172 MOVB rah =(SP) 33 SAVE THE CHAR 

(1) 007754 042716 177600 BIC act fs (SP) STRIP-OFE THE ASCII 

(1) 007760 022726 000007 CMP i318 IT A CONTROL G? 

(1) 007764 001062 BNE 1 S:NO, RETURN TO USER 

(1) 007766 123727 001134 000001 CMPB  =s-: SAUTOB,, #1 7 ZAR ARE UE RUNNING IN AUTO=MODE? 

(1) 007774 001456 BEQ 15$ : ORANCH IF YES 

(1) 007776 104401 010457 TYPE  ,$CNTLG zECHO THE CONTROL~G (*G) 

(1) 01 104401 010464 SGTSWR: TYPE  \$MSWR ZTYPE CURRENT oGONTENTS 

(2) 010006 013746 000176 MOV SWREG,<(SP) tISAVE SWREG FOR TYPEOUT 

(2) 010012 104402 TYPOC 7:60 TyPE==OCTAL ASCIICALL DIGITS) 
' (1) 010014 104601 010475 TYPE ,S$MNEW [:PROMPT FOR NEW SWR 

(1) 010020 005046 19$: CLR =(SP) S:CLEAR COUNTER 

(1) 010022 005046 L -(SP) 

(1) >; THE NEW SWR 

(1) 010024 105777 171114 7$: TSTB. 40 aSTKS z:CHAR THERE? 

(1) 010030 100375 BPL 7$ t:IF NOT TRY AGAIN 

(1) 010032 117746 171110 MOVB asixe -(SP) z:PICK UP 

(1) 010036 042716 177600 BIC #°C177, (SP) TIMAKE IT SBI ASCII 

GD 

(1) 010042 021627 000025 9$: CMP (SP) #25 z31S IT A CONTROL ~U? 

(1) 010046 001005 BNE 10$ ANCH IF NO 

(1) 010050 104401 010452 TYPE  ,$CNTLU IVES, ECHO CONTROL-U (“U) 

(1) 010054 062706 000006 20$: ADD #6, SP ; IGNORE PREVIOUS INPUT 

(1) 010060 000757 BR 19$ S:LET'S TRY IT AGAIN 

(1) 

(1) 010062 021627 000015 10$: CMP (SP) #15 3318 IT A <CR>? 

(1) 010066 001022 BNE 16$ +:BRANCH IF NO 

(1) 010070 005766 000004 TST 4(SP) 33YES, IS IT THE FIRST CHAR? 

(1) 010074 001403 BEQ 11$ [BRANCH IF YES 

(1) 010076 016677 000002 171034 MOV 2(SP) ,aSwR T:SAVE NEW SWR 

(1) 010104 062706 000006 11$: ADD #6,SP T:CLEAR UP STACK 

(1) 010110 104401 001171 14$: TYPE  ,$CRLF S:ECHO <CR> AND < <LF> 

(1) 010114 123727 001135 000001 CMPB  —s S$INTAG, #1 [RE-ENABLE TTY KBD INTERRUPTS? 

(1) 010122 001003 BNE 15$ S:BRANCH IF hor 

(1) 010124 012777 000100 171012 MOV #100 ,aSTkS [RE-ENABLE TTY KBD INTERRUPTS 

(1) 010132 900002 15$: RTI +: RETURN 

(1) 010134 004737 011372 16$: JSR PC, STYPEC S:ECHO CHAR 

(1) 010140 021627 000060 CMP (SP) ,#60 ::CHAR < 0? 

(1) 010144 002420 BLT 18$ S:BRANCH IF YES 

(1) 010146 021627 000067 CMP (SP) #67 *:CHAR > 7? 

(1) 010152 003015 BGT 18$ : SRANCH IF VES 

(1) 010154 042726 000060 BIC #60, (SP)+ SSTRIP=OFF ASCII 

(1) 010160 005766 000002 TST 2(SP) iiTs THIS THE FIRST CHAR 

(1) 010164 00140 BEQ 17$ S:BRANCH IF YES 


.MAINDEC=11=CNIBA=A MACY11 30(1046) 15=DEC-82 16:09 PAGE 57-44 
‘CNIBAA.P11 =: 10=DEC=82 15:35 TTY INPUT ROUTINE SEQ 0046 | 
1) 010166» :006316 ASL (SP) 3iNO, SHIFT PRESENT 
/ €1) 010170 006316 ASL (SP) 33 CHAR OVER TO MAKE 
/ €1) 010172 316 ASL (SP) ROOM FOR NEW ONE. 
C1) 010174 §=—005266 = o00002 17$: INC 2(SP) S:KEEP COUNT OF CHAR 
| 1) 010200 056616 177776 BIS 5g (SP). (SP) 33SET IN NEW C 
| 4) 010206 00070 BR THE NEXT ONE 

(1) 010206 104401 001170 18$: TYPE SQUES SITYPE 2<CR><LF> 
| 1) 010212 000720 BR 20$ T:SIMULATE CONTROL-U 
/ a) .DSABL LSB 

i 

(2) 3g SREEARAAAEEAEAAARAAEKETAEAAETAEAAAAAAAEREAARAARARERAARARAAAAAAEAAEEE 

(1) gSTHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

(1) 3* RDCHR sz INPUT A SINGLE wg be: FROM THE TTY 

(1) 8 RETURN HERE S:CHARACTER IS ON THE STACK 

+3 :* szWITH PARITY BIT STRIPPED OF F 

(1) 

(1) 010214 011646 SRDCHR: MOV (SP) ,=(SP :PUSH DOWN THE PC 

(1) 010216 016666 000004 000002 MOV 4(S SP, 2S :ESAVE THE PS 

(1) 010224 105777 170714 1$: TSTB asTKk szWAIT FOR 

(1) 010230 100375 BPL 1$ TAC T 

(1) 010232 117766 170710 000004 MOVB aSTKB,4(SP) sgREAD T TTY 

(1) 010240 042766 177600 000004 BIC PEN 4(SP) ;;GET RID OF JUNK IF ANY 

(1) 010246 026627 000004 000023 CMP 4(SP) #23 t:1S IT A CONTROLS? 

(1) 010254 001013 BNE ::BRANCH IF 

(1) 01025 105777 170662 2$: TSTB asTKs szWAIT FOR A CHARACTER 

(1) 010262 100375 BPL 2$ +:LOOP UNTIL ITS THERE 

(1) 010264 117746 170656 MOVB mci? -(SP) 3:GET CHARACTER 

(1) 010270 042716 177600 BIC wcll t SP) *:MAKE IT 7-BIT ASCII 

(1) 010274 022627 000021 (MP t:1S IT A CONTROL-0? 

(1) 010 001366 BNE t:1F NOT DISCARD IT 

(1) 010302 000750 BR 1$ s:YES, RESUME 

(1) 010304 026627 000004 000140 3$: CMP 4(SP),#140 t:1S IT UPPER CASE? 

(1) 010312 002407 BLT 4$ SBRANCH IF YES 

(1) 010314 026627 000004 000175 CMP 4(SP),#175 t:1S IT A SPECIAL CHAR? 

(1) 010322 003003 BGT ::BRANCH IF YES 

(1) 010324 042766 000040 000004 BIC #40,4(SP) S:MAKE IT UPPER CASE 

(1) 010332 000002 3 RT ::G0 BACK TO USER 

(2) MTTITITITITITLIL IIT LLL Li Lit itt 

of STHIS ROUTINE WILL INPUT A STRING FROM THE TTY 

;* 

(1) 3t DLIN zz: INPUT A STRING FROM THE TTY 

(1) 3° RETURN HERE S:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

(1) 3* T: TERMINATOR WILL BE A BYTE OF ALL 0°S 

(1) 010334 oigsse SRDLIN: MOV R3,-( zs SAVE R3 

(1) 010356 012703 010442 1$: MOV asityl vie. a3 3GET ADDRESS 

(1) 010342 022703 010452 23: CMP #STTYINGS.,R3 BUFFER FULL? 

(1) 010346 101405 BLOS [:BR IF YES 

(1) 010350 104410 RDCHR +260 READ rg CHARACTER FROM THE TTY 

(1) 010352 112613 MOVB = (SP) +, (R3) S:GET CHARACTER 

(1) 010354 122713 000177 10$: CMPB #177,(R3) *:1S IT A RUBOUT 

(1) 010360 001003 BNE 238 IF NOT 

(1) 010362 104401 001170 4$: TYPE | $QUES S:TYPE A °?° 
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/MAINDEC=11 
‘CNIBAA.P11 — 10=DEC=82 15:35 INPUT ROUTINE SEQ 0047 
/ «010 0007 BR 1$ 3:CLEAR THE BUFFER AND LOOP 
Pe. O103%0 900793 01044 3$: MOVB (R3) 98 ?ZECHO THE CHARACTER 
/ (1) 0103746 «106401 01044 TYPE, 
oa) 910400 122723 1 CMPB #15, (3D 3 CHECK FOR RETURN 
(1) 010404 0013 : BNE 2$ [LOOP IF NOT RETURN 
(1) 010406 10506 177777 CLRB 2 =1(R3) ZECLEAR, RETURN. (THE 15) 
(1) 010412 104401 001172 TYPE SLF iETYPE A LINE FEED 
(1) 010416 012603 MOV (SP)+,R3 : RESTOR 
(1) 010420 011646 MOV (SP) ,<(SP) 3 ADJUST THe STACK AND PUT ADDRESS OF THE 
(1) 010422 016666 000004 000002 MOV 4(SP5 ,2¢SP) 3: FIRST ASCII CHARACTER ON IT 
(1) 010430 012766 010442 000004 MOV #STTYIN,4(SP) 
(1) 010436 2 RTI 3 :RETURN 
(1) 010440 000 9$: .BYTE 0 Z:STORAGE FOR ASCII CHAR. TO TYPE 
(1) 010441 000 "BYTE 0 T 
(1) 010442 000010 STTYIN: .BLKB 8. ; ZRESERVE VE § BYTES FOR TTY INPUT 
(1) 010452 052536 005015 000 $CNTLU: :ASCIZ /*U/<15><12> 
(1) 01045 136 906507 900012 SCNTLG: .ASCIZ /*G/<15><12> - CONTROL "G"" 
(1) 010464 005015 053523 020122 $MSWR: .ASCIZ <15><12>/SWR = / 
(1) 010472 020075 
(1) 01047 040 047060 053505 SMNEW: .ASCIZ / NEW = 
(1) 010502 036440 000040 


_—_— - - 


CF 
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15=DEC-82 16:09 PAGE 58 
CNIBAA.P11 10=DEC-82 15:35 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0048 
6675 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
| . 
' (2) 33 REATARSERAAAAAAARAAEEKEKESAESAAAAAEAAAAAAAAAAEEAREARAAAAEAARERAAREREEE 
(1) z*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(1) s*OCTAL (ASCIi) NUMBER AND TYPE IT. 
ti) ht ge ea HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
s* H 
| (1) ie MOV NUM, =(SP) s:NUMBER TO BE TYPED 
a1) 3* TYPOS *:CALL FOR TYPEOUT 
(1) ge -BYTE WN ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
(1) 3* BYTE 3: oR 0 
(1) 3* z71=TYPE LEADING ZEROS 
(a) g° 3 ,0=SUPPRESS LEADING ZEROS 
3* 
q) [*$TYPON===-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) :*$TYPOS OR $TYPOC 
(1) Z*CALL: 
(1) te MoV NUM, =(SP) ::NUMBER TO BE TYPED 
C1 tt TYPON *:CALL FOR TYPEOUT 
3* 
(1) s eT YPOC-=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3* : 
(1) 3* MOV NUM,=-(SP) s7NUMBER TO BE TYPED 
tq) 3* TYPOC ::CALL FOR TYPEOUT 
(1) 910506 017646 000000 STYPOS: MOV a(SP),-(SP) z:PICKUP THE MODE 
(1) 010512 116637 000001 010731 MOVB 1(SP),SOFILL  § ;;LOAD ZERO FILL SWITCH 
(1) 910320 Ne 37 010733 MOVB sp) SOMODE+1 ::NUMBER OF DIGITS TO TYPE 
(1) 010524 062716 B00 ADD (SP SZADJUST RETURN ADDRESS 
(1) 010530 000406 BR STYPON 
(1) 010532 112737 000001 010731 S$TYPOC: MOVB #1,SO0F ILL 37SET THE ZERO FILL SWITCH 
(1) 010540 112737 000006 010733 MOVB ~SOMODE +1 S:SET FOR SIX(6) DIGITS 
(1) 010546 112737 000005 0107350 S$TYPON: MOVB #5, SOCNT 3:SET me ITERATION COUNT 
(1) 010554 010346 MOV R3,-(SP) Zs :SAVE R 
(1) 010556 010446 MOV R4,-(SP) Z SAVE R4 
(1) 010560 010546 MOV R5,-(SP) :: SAVE R5 
(1) 010562 113704 010733 MOVB $S$OMODE+1,R4 <:GET THE NUMBER OF DIGITS TO TYPE 
(1) 010566 005404 NEG RG 
(1) 010570 062704 900006 ADD #6,R4 ::SUBTRACT IT FOR MAX. ALLOWED 
(1) 010574 110437 01073 MOVB RG, E s:SAVE IT FOR U 
(1) 010600 113704 010731 MOVB SOF ILL ,R4 :;GET THE ZERO FILL SWITCH 
(1) 010604 016605 000012 MOV 1eCSP) RS ::PICKUP THE INPUT NUMBER 
(1) 010610 005003 CLR R 7:CLEAR THE OUTPUT WORD 
(1) 010612 006105 1$: ROL R5 ::ROTATE MSB INTO "‘C’’ 
(1) 010614 000404 BR 3$ 7:60 DO MSB 
(1) 010616 006105 2$: ROL RS ::FORM THIS DIGIT 
(1) 310680 006105 ROL RS 
(1) 010622 006105 ROL R 
(1) 010624 010503 MOV R5,R3 
(1) 010626 006103 3$: ROL R3 3:;GET LSB OF THIS DIGIT 
(1) 010630 105337 010732 DECB SOMODE zz TYPE THIS DIGIT? 
(1) 010634 100016 BPL 7$ 33 F NO 
(1) 010636 042703 177770 BIC #177770,R3 *:GET RID OF JUNK 
(1) 010642 001002 BNE 4$ sz TEST FOR 
(1) 010644 005704 TST RG ::SUPPRESS THIS 0? 
(1) 010646 001403 BEQ 5$ ::BR IF YES 
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4$: INC R4 33DON'T SUPPRESS ANYMORE 0°S 
BIS #°0,R3 33MAKE THIS . ASCII 


065 

po28 52703 000060 

0656 052703 000040 S$: BIS #° ‘R3 3 3MAKE ASCII F NOT ALREADY 
peas 110337 010726 MOVB = R23, 8$ ‘SAVE FOR TYPING 

0666 04 107 

067, 

0676 


> 


104401 010726 TYPE ag 3360 TYPE THIS DIGIT 
105337 010730 7$: DECB 4 4©-« S$OCINT [COUNT BY 
003347 BGT 2$ 33BR IF SORE TO DO 


005204 INC R4 35 INSURE vgth 4H ISN'T A BLANK 
10704 000744 BR 2$ GO DO THE L DIGIT 
706 012605 6$: MOV (SP)+,R5 TEREST ORE R RSS 
0710 012604 MOV (SP)+,R4 Hae th R4 
0712 012603 MOV (SP)+,R3 3 ORE R3 
0714 016666 000002 000004 MOV 2(SP), tsb) 2SET THE STACK FOR RETURNING 


sRETURN 
33 STORAGE FOR ASCII DIGIT 
;T NATOR "COUNTER ROUTINE 


Ce ee ea ht et at ee tt a i @w 
et as ss ss a 9) ss = = ss 3 
er er ee ee a ee ee a ee ee a a ee a ee ee ee ae ee 
SOOoCoOoOooooooooooo 
ab a eb a a tt ae 
EERE 
oO 
2S 
= 
oO 
Nm 
@ 
- 
“4 
o 
bad 
¢ 
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| 
MAINDE 
|CNIBAA.P P11: 10=DEC=82 15:35 BINAR Y TO OCTAL (ASCII) AND TYPE : SEQ 0050 
6677 
az .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(2) FERRARA AERAAEAAERE EAA A EEA EAEAAAEAAEEEEAAAEEEEEOREAREREEEEAERERE 
(1) SSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
(1) 3*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) [*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) [*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
i} i #REPLACED WITH SPACES. 
(1) 8 Mov NUM, <(SP) z;PUT THE BINARY NUMBER ON THE STACK 
MH 3t TYPDS ::G0 TO THE ROUTINE 
(1) 010734 STYPDS: 
(3) 010734 010046 MOV RO,-(SP) z:PUSH RO ON STACK 
(3) 010736 010146 MOV R1.=(SP) +:PUSH R1 ON STACK 
(3) 010740 010246 MOV R2.=(SP) 3 sPUSH R ON STACK 
(3) 010742 010346 MOV R3.~ (SP) [PUSH R3 ON STACK 
(3) 010744 010546 MOV ~ 3 PUSH H_R5 ON STACK 
(1) 010746 012746 020200 MOV #36200" (SP) [SET BLANK SWITCH AND SIGN 
(1) 010752 016605 000020 MOV 20(SP).R5 33GET THE INPUT NUMBER 
(1) 010756 100004 BPL 1$ 7:BR IF INPUT IS POS. 
(1) 010760 005405 NEG R5 T:MAKE THE BINARY NUMBER POS. 
(1) 010762 112766 000055 000001 MOVB = #*=, 1 (SP) S:MAKE THE ASCII NUMBER NEG. 
(1) 010770 005000 1$: CLR RO 33ZERO THE CONSTANTS INDEX 
(1) 010772 012703 011150 MOV #$DBLK R3 :SETUP THE OUTPUT POINTER 
(1) 010776 112723 000040 MOVB (RS) t:SET THE FIRST CHARACTER TO A BLANK 
(1) 011002 005002 2$: CLR Ro” T:CLEAR THE BCD NUMBER 
(1) 011004 016001 011140 MOV $DTBL(RO),R1 z3GET THE CONST 
(1) 011010 160105 3$: SUB R1,R5 FORM THIS BCD DIGIT 
(1) 011012 002402 BLT 4$ [:BR IF 
(1) 011014 005202 INC R2 tTINCREASE THE BCD DIGIT BY 1 
(1) 011016 000774 BR 3$ 
(1) 011020 060105 4$: ADD R1,R5 :3ADD BACK THE CONSTANT 
(1) 011022 005702 TST R2 33CHECK IF BCD DIGIT=0 
(1) 011024 001002 BNE 5$ [FALL THROUGH IF 0 
(1) 011026 105716 TSTB =: (SP) tESTILL DOING LEADING 0°S? 
(1) 011030 100407 BMI 7$ ':BR IF YES 
(1) 011032 106316 5$: ASLB = (SP?) 3 3MSD? 
(1) 011034 103003 BCC 6$ [:BR IF 
(1) 011036 116663 000001 177777 MOVB 1¢sP) -1(R3) HIYES~-seT THE SIGN 
(1) 011044 052702 000060 6$: BIS #°0,R2 MAKE THE BCD DIGIT 
(1) 011050 052702 000040 7$ BIS ay 3 SMAKE IT A SPACE IF Not ALREADY A DIGIT 
(1) 011054 11022 R2,(R3)+ [PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 011056 TST (RO) + +: JUST INCREMENTIN 
(1) 011060 020027 000010 MP RO, #10 i CHECK THE TABLE INDEX 
(1) 011064 002746 BLT 2$ DO THE NEXT DIGIT 
(1) 011066 003002 BGT 8$ 3: EXIT 
(1) 011070 010502 MOV R5,R2 $:GET THE LSD 
(1) 011072 764 BR £:G0 CHANGE TO ASCII 
(1) 011074 105726 8$: TSTB 0s (SP) + 33WAS THE LSD THE FIRST NON-ZERO? 
(1) 011076 100003 BPL ‘BR IF 
(1) 011100 116663 177777 177776 MOVB =1(SP),-2(R3) ::YES==-SET THE SIGN FOR TYPING 
(1) 011106 105013 9$: CLRB (3) i3SET THE TERMINA 
(3) 011110 012605 MOV (SP)+,R5 POP STACK INTO RS” 
(3) 011112 012603 MOV (SP)+.R3 [:POP STACK INTO R3 
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CNIBAA.P11  _ 10=DEC=82 15:35 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0051 
(3) 011114 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
(3) 011116 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
(3) 0111 9 012600 MOV ($B) + RO 3 sPOP STACK INTO RO 
(1) 011122 104401 011150 TYPE [NOW TYPE T 
(1) 011126 016666 000002 000004 MOV seeetk 4(SP) S:ADJUST THE STACK 
(1) O11134 012616 MOV (SP)+, (SP) 
(1) 0171 2 RTI z:RETURN TO USER 
(1) 011140 0254 0 $DTBL: 10000. 
(1) 011142 001750 . 
(1) 011144 000144 00. 
(1) 011146 000012 ; 
(1) 011150 000004 SDBLK: .BLKW 4 
6679 .SBTTL TYPE ROUTINE 
(2) J RRARAAAAAARERAAAAEEEAEAAEEAEEAERERAERERAAAEEAEREERAAEEREREREREE 
(1) : ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
(1) + *THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(1) 7 *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1)  *NOTE2: SFILLS CONTAINS THE NUMBER OF PIELER CHARACTERS REQUIRED. 
(1 Seen SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
(1) *CALL: 
(1) 31) USING A TRAP INSTRUCTION 
(1 an YPE  ,MESADR Z:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
(1) te TYPE 
(1) be MESADR 
ah " 
(1) 011160 105737 001157 $TYPE: TSTB  $TPFLG z:1S THERE A TERMINAL? 
(1) 011164 100002 BPL 1$ ::BR IF YE 
(1) 011166 000000 HALT [:HALT HERE IF NO TERMINAL 
(1) 011170 000430 BR 3$ 3 sLEAVE 
(1) 011172 010046 1$: MOV RO,-(SP) [SAVE RO 
(1) 011174 017600 000002 MOV a2(SP),RO 2:GET ADDRESS OF ASCIZ STRING 
(1) 011200 122737 000001 001214 CMPB  W#APTENV,SENV ::RUNNING IN APT 
(1) 011206 001011 BNE 62$ 7:N0,GO CHECK. FOR APT CONSOLE 
(1) 011210 132737 000100 001215 BITB § #APTSPOOL,SENVM ::SPOOL MESSAGE TO APT 
(1) 011216 001405 BEQ 62$ ::NO,GO CHECK FOR CONSOLE 
(1) 011220 010037 011230 MOV RO,61$ ::SETUP MESSAGE ADDRESS FOR APT 
(1) 011224 004737 011450 : JSR PC. $ATY3 ::SPOOL MESSAGE TO APT 
(1) 011230 900000 61$:  .WORD i SME SSAGE ADDRESS 
(1) 011252 152737 000040 001215 62$:  BITB — #APTCSUP,SENVM 3;APT CONSOLE SUPPRESSED 
(1) 011240 001003 BNE [:YES,SKIP TYPE OUT 
(1) 011242 112046 2$: MOVB = (RO) +, =(SP) 33 PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 011244 001005 BNE 4$ 3:BR IF IT ISN" T THE TERMINA 
(1) 011246 005726 TST (SP) SIF TERMINA OR POP IT OFF THE STACK 
(1) 011250 012600 60$: MOV (SP): RO Z:RESTORE R 
(1) 011252 062716 000002 3$: ADD (SP) *:ADJUST RETURN PC 
(1) 011256 000002 RTI +: RETURN 
(1) 011260 122716 000011 4$: CMPB on: ian ::BRANCH IF <HT> 
(1) 011264 001430 BEQ 
(1) 011266 122716 000200 CMPB Ss CRLF, (SP) :;BRANCH IF NOT <CRLF> 
(1) 011272 001006 BNE 
(1) 011274 005726 TST (SP)+ : POP <CR><LF> EQUIV 
(1) 011276 104401 TYPE ::TYPE A CR AND L 
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(1) 

(2) 

(1) 011 
(1) 0114 
(1) 011456 
(1) 011460 
(1) 011466 
ty 11 
(3) 0114 
(1) 0114 
q1) 11476 
(i> 911300 
(1) 011566 
(1) gia3ie 
(1) (01351 
a) 911520 
41) OF 


os 
ne 
o— 

~ 


SWANS 
SSRN 
see 
= 
——s ab 
= ow 
w 
F SA 


000001 

700 

004737 011372 
011436 


000040 
011372 
000007 


167552 
100375 

116677 000002 
122766 000015 
011436 
122766 000012 
00 
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TYPE ROUTINE 


011436 


167544 
000002 


000002 


SCRLF 

CLRB CHARCNT 
5$: JSR PC, S$TYPEC 
6$: CHP FILLC, (SP)+ 

MOV $NULL ,-(SP) 
7$ DECB 42 s«41( SP) 

BLT 

§ PC ,S$TYPEC 


JSR 
DECB SCHARCNT 
BR 7$ 


HORIZONTAL TAB PROCESSOR 
8$: MOVB #° (SP) 


9$: JSR PC, $TYPEC 
BITB #7.$CHARCNT 
BNE 
TST (SP)+ 
BR 2$ 

STYPEC: TSTB a$TPS 
BPL 


STYPEC 
MOVB 2(SP) ,aSTPB 
CMPB #CR,2(SP) 
BNE ] 
CLRB SCHARCNT 
BR TYPEX 


$ 
1$: CMPB #LF .2(SP) 
Q STYPEX 
INCB (PC)+ 
SCHARCNT: . WORD 


0 
STYPEX: RTS PC 


a. eke COUNT 


T_CHARACTER 

THIS CHARACTER 

IME FOR FILLER CHARS.? 
NO GO GET NEXT CHAR. 

# OF FILLER CHARS. NEEDED 
3sAND THE NULL CHAR. 


D 

338R IF NO--GO POP THE 
33G0 TYPE A NULL 

++ A ed COUNT AS A COUNT 


33REPLACE TAB WITH SPACE 
zs TYPE A SPACE 
roy IF NOT AT 


oP 
33POP SPACE OFF STACK 
3:GET_NEXT CHARACTER 
ssWAIT UNTIL PRINTER IS READY 


NULL OFF OF 


STACK 


3;LOAD CHAR TO BE TYPED INTO DATA REG. 


z:1S CHARACTER A CARRIAGE RETURN? 


3 sBRAN 
33YES=-CLEAR CHARACTER COUNT 


33EXxI 

2218S CHARACTER A LINE FEED? 
::BRANCH IF YES 

::COUNT THE CHARACTER 
::CHARACTER COUNT STORAGE 


-SBTTL APT COMMUNICATIONS ROUTINE 


see eeeeeeareeeeererereeeeeeeeeeeeeeeereeerereeeeeeeeeeeeseeeeres 


TY1: MOVB #1, SFFLG 
#1, SMFLG 


SATY3: MOVE 
ae SaTYC 
SATY4: MOVB #1,SFFLG 
SATYC: 
mOV RO,-(SP) 
MOV R1.-(SP) 
TST8 30s: SMFLG 
bed) 5% 
care BAP TEN, SERY 
81 is #APTSPOOL . SENVM 
MOV 24{SP) RO 
ADD w2.4(SP3 


37TO REPORT FATAL ERROR 
3310 TYPE A MESSAGE 


310 ONLY, REPORT FATAL ERROR 


S Be Os Se Or Ce Oe Oe Oe 
Se Be Sete te te Oe Be Oe 
—- 
hal 
. 


SEQ 0052 
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CNIBAA.P11 10-DEC=82 15:35 APT COMMUNICATIONS ROUTINE SEQ 0053 
(1) 011532 005737 001174 1$: TST SMSGTYPE z:SEE If DONE W/ LAST XMISSION? 
(1) 011536 001375 BNE 1 szIF NOT: WAIT 
(1) 011540 010037 001210 MOV RO, $MSGAD 
(1) >:PUT ADDR IN MAILBOX 
(1) 011544 105720 2$: TSTB 43s (ROD+ zFIND END OF MESSAGE 
(1) 011546 001376 BNE 2$ 
(1) 011550 163700 001210 SUB SMSGAD,RO ::SUB START OF MESSAGE 
(1) 011554 906200 ASR RO t:GET MESSAGE LNGTH IN WORDS 
(1) 011556 01905 001212 MOV RO, SMSGLGT t:PUT LENGTH IN MAILBOX 
(1) 011562 012737 000004 001174 MOV #4. SMSGTYPE ‘TELL APT TO TAKE MSG. 

(1) 011570 000413 BR $ 
(1) 011572 017637 000004 011616 3$: MOV a4(SP),4$ z:PUT MSG ADDR IN JSR LINKAGE 
(1) 011600 062766 000002 000004 ADD #2 4(SP) 5 ;BUNP RETURN ADDRESS 
(3) 011606 013746 177776 MOV 177776, =(SP) z:PUSH 177776 ON STACK 
(1) 011612 004737 011160 JSR C, $TYPE S:CALL TYPE MACRO 
(1) 011616 00 4$: WORD 
(1) 011620 5$: 
(1) 011620 105737 011706 10$: STB  $FFLG z:SHOULD REPORT FATAL ERROR? 
(1) 011624 001416 BEQ 12$ t:1f NOT: BR 
(1) 011626 005737 001214 TST SENV ::RUNNING UNDER APT? 
(1) 011632 001413 BEQ 12$ s:1F NOT: BR 
(1) 011634 005737 001174 11$: ‘TST SMSGTYPE S:FINISHED LAST MESSAGE? 
(1) 011640 001375 BNE 11$ : t:1F NOT: WAIT 
(1) 011642 017637 000004 001176 MOV Q4(SP),SFATAL ::GET ERROR # 
(1) 011650 062766 000002 000004 ADD #2,4(SP »:BUMP RETURN ADDR. 
(1) 011696 5237 001174 INC SMSGTYPE z:TELL APT TO TAKE ERROR 
(1) 01162 105037 011706 12$:  CLRB  $FFLG T:CLEAR FATAL FLAG 
(1) 011666 105037 011708 CLRB Ss SLFLG T:CLEAR LOG 
(1) 011672 105037 0117 CLRB 3s SMFLG S:CLEAR MESSAGE FLAG 
(3) 011676 012601 (SP)+,R1 ::POP STACK INTO R1 
(3) 011700 012600 (SP)+-RO +:POP STACK INTO RO 
(1) 011702 207 RTS PC + :RETURN 
(1) 011704 000 SMFLG: .BYTE 9 t:MESSG. FLAG 
(1) 011705 000 SLFLG: .BYTE 
(1) *:LOG FLAG 
(1) 011706 900 SFFLG: .BYTE 6 ZFATAL FLAG 
(1) on 10 
(1) 200 APTSIZE=2 
(1) 000001 APTENV=001 
(1) 000100 APTSPOOL=100 
(1) 000040 APTCSUP=040 
6681 .SBTTL POWER DOWN AND UP ROUTINES 
(2) 3 SREAAAAAAAAEAAAAAARAATAEAAAAARAKAKAAAARAAAAARAARAAARARARAEEAAREREEE 
(1) “POWER DOWN ROUTINE 
(1) 011710 012737 012050 000024 $PWRDN: MOV #SILLUP.a#PWRVEC ;;SET FOR FAST UP 
(1) 011716 012737 000300 000026 MOV #PR6,@MPURVEC+S 3 :PRIO:6 
(3) 11724 010046 MOV (SP) +:PUSH RO ON STACK 
(3) 0117, 10146 MOV R1,-(SP) :PUSH R1 ON STACK 
(3) 0117 10246 MOV R2,-(SP) +:PUSH R2 ON STACK 
(3) 1173e 10346 MOV R3,-(SP) 3;PUSH R TACK 
(3) 0117 10446 MOV R4,-(SP) +:PUSH R4 ON STACK 
(3) 011736 010546 MOV R5,°(SP) +:PUSH RS ON STACK 
(3) 011740 17746 167174 MOV asSwR,-(SP) t:PUSH @SWR ON STACK 
(1) 011744 1063 012054 MOV SP, SSAVR6 t:SAVE SP 
(1) 011750 012737 011762 000024 MOV #SPWRUP, a#PWRVEC’ :;SET UP VECTOR 


po 








SpaRtlte 


6703 012 PAE 
6704 012072 162737 


6707 O15 100 HEA 


670. 
6709 012110 000000 


macylt 30(1046) ok souk 16:09 Seti fe 
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CNIBAA.P11 10=DEC=82 15:35 POWER DOWN AND UP ROUTINES 

(1) 011756 000000 HALT 
(1) 11760 000776 BR .*2 ::HANG UP 
(2) SREAAEAREKAAAAAAAARAATAAEAAAETAAAAEAARAARAARAARAARAAAAAARAARAARAAARERAAARE 
(1) :BOWER UP ROU] INE 
(1) 0117 2 12737 012050 000024 $PURUP: MoV ASILLUP ,a#PWRVEC ;;SET FOR FAST DOWN 
(1) 0117 137 12054 MOV SSAVR6, SP z:GET SP 
(1) 011774 303 12054 CLR SSAVR6 S:WAIT LOOP FOR THE TTY 
(1) 012000 905¢ 7 012054 1$: INC SSAVRO6 Z3WAIT FOR THE INC 
(1) 012006 001375 BNE 1$ [OF WORD 
(3) 01 006 12677 167126 MOV (SP)+,aSWR :POP STACK INTO 2 wR 
(3) 012012 012605 MOV (SP)+.R5 7:POP STACK 
(3) 012014 012604 MOV (SP)+,R4 ::POP STACK INTO Ra 
(3) 012016 012603 MOV (SP)+.R3 ::POP STACK INTO R3 
(3) 012020 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
(3) 012022 012601 MOV ($P)+.81 33POP STACK I To R1 
(3) 012024 01 600 MOV (SP :POP STACK INTO RO 
(1) 9120 6 01 23 011710 000024 MOV SepuRbn @#PWRVEC’ :;SET UP THE POWER DOWN VECTOR 
(1) 012034 012737 000300 000026 MOV #PR6, @#PWRVEC? sib 0: 
(1) 012042 104401 TYPE sREPORT THE POWER FAILURE 
(1) 012044 012056 SPWRMG: .WORD $POWER ::;POWER FAIL MESSAGE POINTER 
(1) 012046 00000 RTI 
(1) 012050 SILLUP: HALT THE POWER UP SEQUENCE WAS STARTED 
(1) 012052 000776 BR 72 33 i BEFORE THE POWER DOWN WAS COMPLETE 
(1) 012054 0000 SSAVR6: 0 t:PUT THE SP HERE 
(1) 012056 005015 047520 042527 $POWER: .ASCIZ <15><i2>"POWER" 
Dearne ape EVEN 

6682 

6683 3 

6684 :*THIS ROUTINE WILL PROTECT THE PROGRAM 

6685 ;*FROM INTERRUPTS 

6686 

6687 


j THE ae eae IS SET UP FOR 


et et 

‘* WORD JSR PC,RO 

ILLEGAL INTERRUPTS OR ey JTO_THE WRONG VECTOR 
3*GOTO THE VECTOR AND PICK UP T -*2°° AS AN ADDRESS 
:*AND °'4700°° AS N TA 


EW STATUS. 
s*THE #2 AS A PC viet CAUSE htotatio OF THE “JSR PC,RO*’ (AN ILLEGAL INSTR). 


3*AND TRAP TO LOCATION "%4''. TION 10 WE HAVE A 
s*POINTER HERE. IF wis CONDITION CAUSES A_TRAP TO LOC. 4 
*WE WILL REPORT IT IN THE SAME MANNER THAT WE WOULD 
z*REPORT ANY OTHER ERROR. 


self A puss os TRAP DID OCCUR AND CAUSE A TRAP TO 4, 


T*WE WILL 
12132 IOTRD: MOV (6), TRTO :GET WHERE WE CAME TO. 
004 012132 SUB #4, TRTO [FORM REAL ADDR. 
012132 001000 CMP TRTO,#1000 ;DID TRAP COME FROM LESS THAN ADDR. 1000? 


1$: HALT 3NO! MUST BE A BUSS ILLEGAL ADDR. TIME OUT. 


———-—— 


C-1 

eit 
012112 
012114 


012114 
012122 


012126 


012130 


012132 
012134 
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000776 


016637 
062706 


104007 


000002 


000000 
000000 


000004 012134 
000004 
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POWER DOWN AND UP ROUTINES 


; ADDRESS CONTAINED IN TRTO. 
:DON'T ALLOW A CONTINUE. 


:GET TRAPPED FROM ADDR. 
3/ADD #4 TO STACK POINTER. 


3 sSSSSSSSS$S>>> ERROR <<<SSSSSSSSSS 


BR 1$ 

2s: 
MOV 4(6), TRFRO 
ADD #4,SP 
ERROR 7 
RTI 

TRTO: eWORD 0 

TRFRO: .WORD 0 


-SBTTL TRAP DECODER 


:/MODULE FAULT DETECTED: 
sERROR! td INTERRUPT 
By 


tOR INTERRUPT TO 
[VECTOR = IF TEST 

t1S LESS THAN 1 LIKELY 

: (BUT NOT ONCLUSIVELYD— TO BE A 
:DEVICE OTHER THAN THE IBV-11 


: AME. 

IF THE INTERRUPT OCCURRED 
ZDURING AN INTERRUPT TEST, I°D 
:SUSPECT A PROBLEM WITH THE 


;18V- 
iF THE ADDRESS THE Bl ya! 


; HA 
St 1 PUT THE WRONG VECTOR ON 
THE BU 


ESS. 
SFOR THIS ERROR = DON'T 
USE “LOOP ON ERROR’ ION 
ALSO EXPECT THE INTERRUPT TEST TO 
sREPORT THAT THE IBV-11 DIDN'T 
3 INTERRUPT. 
FOLLOW RECOMMENDED PROCEDURE 


2IN THE DOCUMENT sh DIAGNOSTIC) 


FOR LOOPING ON ERR 


; $$SSSSSSS$S°°* ERROR “*“SSSSSSSSSS 


sADDR THAT WE INTERRUPTED TO 
zADDR THAT WE INTERRUPTED FROM. 


TATA AAAAHEAAAAAARAAAEEEAAAAEAEARERAEAAERAKEERERANEEERAAREAREAREES 


a a a ee 


SEQ 0055 
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3*THIS ROUTING WILL go THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
3*AND_USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
3*OF THE DESIRED _* THEN USING THE ADDRESS OBTAINED IT WILL 


012136 010046 STRAP: MOV RO,=(SP) r:SAVE RO 
012140 016600 000002 MOV 2(SP),RO 33GET TRAP ADDRESS 
012144 005740 TST =(RO) CKUP BY 
012146 111000 MO (RO) ,RO 33GET RIGHT BYTE OF TRAP 
012150 006300 ASL TION OR INDEXING 
012152 016000 012172 MOV STRPAD(RO) RO tINDEX T L 
012156 000200 RTS RO 7:60 TO ROUT IRE 
zz THIS IS USE TO HANDLE THE "GETPRI'’ MACRO 
012160 011646 STRAP2: MOV (SP) ,-(SP) z:MOVE THE PC DOWN 
012162 016666 000004 000002 MOV 4(SP5,2¢SP) ::MOVE THE PSW DOWN 
012170 000002 RTI S:RESTORE THE PSW 
.SBTTL TRAP TABLE 
z*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
'*BY THE "TRAP’’ INSTRUCTION. 
: ROUTINE 
1217 012160 $TRPAD: .WORD AP2 
12174 011160 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
12176 010532 STYPOC ::CALL=TYPOC = TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
12200 010506 STYPOS ;CALL=TYPOS — TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
12202 010546 STYPON ::CALL=TYPON  TRAP*4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
12204 010734 STYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
012206 010002 SGTSWR ::CALL=GTSWR § TRAP+6(104406) GET SOFT=-SWR SETTING 
012210 007732 SCKSWR ::CALL=CKSWR | TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
012212 010214 SRDCHR ::CALL=RDCHR § TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
12214 010334 SRDLIN ::CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
.SBTTL MESSAGES AND TABLES 
12216 005007 044415 051502 EM1:  .ASCI2<7><12><15>#IBS FUNCTION ERROR# 
12224 043040 047125 05210 
12232 047511 020116 051105 
12240 047522 000122 
12244 005007 044415 042102 EM2:  .ASCIZ<7><12><15>#IBD FUNCTION ERROR# 
12252 043040 047125 oats 
12260 047511 020116 051105 
12266 047522 000122 
12272 005007 044415 051502 EM3:  .ASCIZ2<7><12><15>#IBS DATA ERRORS 
12300 042040 052101 020101 
12306 051105 047522 000122 


a re ee en ee ee - ————— - 


eee 
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MESSAGES AND TABLES 


Fm4: 


EMS: 


EM6: 


EM7: 


DH1: 


DH3: 


DHS: 


DH7: 


DT1: 


IBSA: 


IBDA: 
DT3: 


eASC1IZ<7><12><15>#IBD DATA ERROR# 


-ASC12<7><200>#I1BS/IBD ADDRESS ERROR# 


eASCIZ <7><200>#IBWC/IBCA DATA ERROR# 


eASCIZ <7><200>#INTERRUPT ERROR# 


eASCIZ<CRLFO#TEST ERRPC IB ADR’ IBS 1BD# 
eASCIZ<CRLF>#TEST ERRPC GOOD BAD# 

eASCIZ <CRLFO#TEST ERRPC IB ADDR# 

eASCIZ <CRLFO#TEST ERRPC 10 FROM ADDR.# 


-EVEN 

-WORD STESTN,SERRPC,IBS 
-WORD 0 

-WORD 0,0 


-WORD STESTN,SERRPC,SGDDAT,S$BDDAT 0 


SEQ 0057 
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; MAINDEC=11-CNIBA-A MACY11 30(1046) nliscts bee 16:09 PAGE 50-8 


‘CNIBAA.PT1 — 10=DEC=82 15:35 SAGES AND TABLES 
6791 
| 6792 012666 001200 001116 001346 DTS: WORD STESTN, SERRPC, 1BS,0 
6793 012674 000000 
| 679% 012676 001200 001116 012132 DI7: WORD STESTN,SERRPC, TRTO, TRFRO,O 
| e795, 12708 012154 000000 
6796 012710 000000 000000 DFO: WORD 0,0 
6798 
6799 ;THE FOLLOWING CALL TO CNMAC2.SML LIBRARY WAS ADDED TO INIT 11/21 
6800 ZSPECIFIC VECTORS. 
6801 012714 POINTS. ;SAVE POINTER 
(1) 000100 .=10 
(1) 000100 012714 $CLKVEC :LKVEC HANDLER 
(1) 000102 000300 300 z INTERRUPT HANDLER PRI 
(1) 000140 »=140 :BRKVEC 
(1) 000140 170000 i70000 ZODT START ADDRESS 
(1) 000142 000300 300 RITY 
(1) 012714 =POINT RESTORE. POINTER 
(1) 012714 106401 012722 SCLKVEC: TYPE ,CLKMES 
(1) 012720 000000 HAL 
(1) 012722 005015 045514 042526 CLKMES: .ASCIZ <15><12>/LKVEC INTERRUPT = DISCONNECT LTC / 
(1) 012730 020103 047111 042504 
(1) 012736 051122 050125 020124 
(1) 012744 020055 044504 041523 
(1) 012752 047117 042516 052103 
(1) 012760 046060 041524 000040 
6802 000001 END 


SEQ 0058 
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(NI 735 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0059 
/ABASE = 174100 1 5732 5854 5855 5856 5857 5862 5863 

‘Acbuz = 900000 


ie 5732 
66804 
70 ©6679 66804 


66804 
66804 


6 
: 5732 5858 5859 5860 5861 5864 5865 58 5867 5871 ? ? 
5876 5877 5878 5879 66 386 8 5872 5873 


6057 6058 6067 6137 6238 6341 6366 38=— 6421 6644 
B1T00 = 000001 
BIT01 = 000002 
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SEQ 0060 
6245 6272 6282 6402 6436 
6272 


6244 
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MA 

CNIBAA.PT11 10-DEC=82 15:35 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0061 

'GTSWR = 104406 937 67578 

HT = 11 7198 79 

|IBCA 901 54 8578 95 4 989 6047 

| 180 1350 8554 9ie 5892 S 900 5955 6003 ogee 39e een yooh 6ens* ees3° 

beeus 43 30 625 Gene 6265 6273* 7% 8 84 633 6339 
§ 1 é 6 6356 6368*  6403¢ 6405  6453*  6473*  6646* 

IBDA 012650 * 67888 

1BD2 =: 001370 586 901* 5902 $647 

18S 1 5854@ 5890* 5891 99  §951 6012 6056* 6057 59 7* 6069 77¢ 6078 
608 6088* 6090 * 6099* 6101 6109* 6111 6119* 6120¢ 6122 6125¢ 126 
ti 61468 6147* 6149 6158 6160 6170* 6172 6176 6183 6184 6192  6193« 
619 6203* 6205 6238% 6239% 6240* 6241% 6242  6243¢ * 6245« 4 6263 
72 og83e 6337* 6339% 63412 6343* 6347 6355% 6365" 6366" 6370 6378 6380 
6389" 6390" 6391 393 66028 6418* 6421% 6430" 64 6437* 64442 6463¢ 64688 
6472* 6684* 65108 6531* 6537¢ 6552¢ 6564 6572e 6574 6578 #6590" 65 + 

sone te 10* 6603s 6642 4e 6659 6784 6792 

1BS2 001366 58624 5901 6511" 6515*  6525* 65320 6538* 6553* 6559% 6560* 6573* 6577*  6591« 

6592 66068 6612* 22 3e 6645" 6660 

1BwC 83=—s«001352 58564 5893* 5894 5895 5 6039 

10T 012066 5709 5887 67034 

IOTVEC= 000020 57198 3886" 

LF = 000012 57194 66 

LKVEC = 000100 57194 

ODTST = 170000 57198 

PIRQ = 177772 57198 

PIRQVE= 000240 57198 

POINT = 012714 $8018 

PRA 901402 8714 5916* 5917* 5918 5933* 6469* 6485* 6607*  6621* 

PRA2 00141 58764 5924* 5925* 5926 

PRB 001404 28728 5918* 5919% 5920 5934 6534*  6551* 

PRB2 001414 58774 5926* 5927* 5928 

PRC 001406 58734 5920*  5921« 3928 5935* 6419" 6431% 64342 6445  6449* 

PRC2 001416 58784 5928 5929% 5930 6512*  6526« 

PRD 001410 58748 59222 5923e 59 * 6464* 

PRD2 001420 28798 5930* 5931« 

PRO = 000000 57198 

PR1 = 000040 57194 

PR2 = 000100 57194 

PR3 = 000140 57194 

PRA = 000200 57198 

PRS = 000240 57194 

PRE = 57194 5886 6681 

PR7 = 000340 57194 

PS = 177776 57194 

PSW = (177776 57194 

PWRVEC= 24 57198 5886*  6681* 

RDCHR = 104410 6675 67574 

RDLIN = 104411 $ S74 

RESVEC= 000010 7194 

RSTART 002266 29324 668 

STACK = 0011 571 886 

TART 00142 5717 58864 

STKLMT= 177774 57194 

001140 57324 5886* 5937 6679 6672 6673*  6681* 
SWREG 000176 57124 5886 5937 667 
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CNIBAA.P11 10=DEC-82 15:35 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0062 
swO. = 000001 57198 

eit 

= 

ae = 000004 sate 
SwO3 = 000010 57198 
Sw04 = 000020 57198 
SswOS = 000040 57198 
Sw06 = 000100 57198 
Ssw07 = 000200 57198 
SwO8 = 000400 57198 
SwO9 = 001000 57198 
Swi = 000002 57194 
Swi0 = 002000 57194 

SW11 = 004000 57194 
Swi2 = 010000 57198 
SWw13 = 020000 57194 
SW14 = 040000 57194 
SwiS = 100000 ab ed 
Sw = 000004 7198 
SWw3 = 000010 57198 
SWw4 == 000020 57198 

SWS == 000040 57194 
SW6 = 000100 57194 
Sw? == 000200 57198 

Sw8 = 000400 57198 ; 
Sw9_ = 001000 57194 

TBITVE= 000014 57194 

TKVEC = 000060 57194 

TPVEC = 000064 57198 

TRAPVE= 000034 5719# 5886 

TRFRO 012134 6715* 67554 6794 
TRIO =: 0012132 6703*  6704* 6706 67544 6794 
TRTVEC= 000014 57194 

$T1 002444 59404 

TST10 §©003156 6086 6091 60964 
TST11 003246 6107 6112 61174 
TST12 003372 6132 6140 61444 
TST13 003462 6156 6161 61664 
TST14 003564 6180 6185 61904 
TST15 003654 6201 6206. 62384 
TST16 §©003746 6238 62594 

TST17 004040 6239 62404 

St2. 002570 59784 

TST20 004132 6240 62414 

TST21 004224 6241 62424 

TST2 004316 624 62 

TST2 004410 624 62444 

TST24 004502 6244 6245 

TST25 004574 6245 62474 

TST26 posses 6253 62614 

rete? 00475 6270. 6280 6289 6291 63374 
TST 002654 60074 

TST30 005040 6337 63394 

TST31 §=©—.005130 6339 = 63414 

TST3 Boogie 6341 63434 

TST33 005 6343 63454 
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| 


WAINDEC=11=CNIBA“A__MACY11. 30( 1046) _15-DEC=82 16:09 

| CNIBAA.P11 10=DEC-82 15:35 

1s 005346 6353 6357, 63630 

| TST 5 Spee en 6371 63764 

T8136 0056 6581 63878 

'TS13? 008476 $394 64008 

St 097 6013-60188 

‘T8140 0055 6408 64168 

TST41 0086 643 

TST42 006034 6646 64668 

S143 006152 64918 

S144 06266 65288 

TST4§ 0064 e355e 

TS14 006426 6365 65708 

TST4? 006500 6576 6879S 86M 

TSTS. 002734 6024 6036s 

TST80 006532 6595 

TST51 66 

TSTS2 0067 6654 66624 

ST6 002776 6045 6048 60544 

TST? 008066 065 8070 «60754 

TYPDS = 104405 6668 67574 

TYPE = 104401 5937 2668 6670 667% 6673 
TYPOC = 104402 6671 667 67574 

TYPON = 104404 67574 

TYPOS = 104403 67574 

VECTA 001356 SBcBe «S897 $898 5903 5916 
VECTA2 001372 38648 8909 $924 

VECTB. 001360 8850" 8903+ $004e 5905 5934s 
VECTB2 001374 35078 5909 5910* 911 

VECTC. 001 O# 3905 39062 3907 5935« 
VECTC2 001376 8668 8011" 8912" 8913 5138 
VECTD. 001364 $8618 8907# $008 8936 64578 
VECTD2 001400 R678 8913" 80148 

SAPTHD 001000 37808 

SASTAT= seeeee 6680 

SATYC 011466 66804 

$SATY1 011442 66804 

SATY3 011450 6679 66808 

SATY4 011460 70 668 

SAUTOB 001134 S752" $937" 6673 

SBASE. 001250 35359¢ 3890 

$BDADR 001122 35854 

SBDDAT 001136 


6 
6275 o6ahe 6647* 6648 6790 


SBELL 001164 57324 70 
$CDW1 001254 57324 6505 
SCHARC Oat ee8 66794* 
SCKSWR 00773 66734 6757 
CLKVE 012714 68014 
SCMTAG 001100 57324 5886 
CMS = 000000 HA 4 
SCNTLG 010457 667 
SCNTLU 010452 734 
Cc 001222 7324 
SCRLF 001171 57324 6670 6671 6673 6679 


6675 


5933* 
6535* 


6420+ 
6526* 


6464% 


PAGE 60 
CROSS REFERENCE TABLE <= USER SYMBOLS 


6678 


6470* 
6551* 
64318 


6679 


6485* 


6435* 


6681 


6608* 


6445* 


67574 
6621* 


6449« 


6081 
6160* 
6244* 


6801 


6090* 
6174* 
6245* 


6101* 
6175 
6252* 


SEQ 0063 


6102 
6184" 
6274 
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MAINDEC-11-CNIBA=A MACY 
CNIBAA.P11 10=-DEC-82 15:35 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0064 
SOBLK 11150 7 
SDEVCT 1 2 Le # 
vA =001 57328 
GN 007 666 
SOTBL 1114 4 8a 
NDAD 00705 26 «= 6668 # 
SENDCT 0070 66684 
SENDMG 007071 66684 
SENULL 007066 84 
SENV. 001214 732e#@ §=6©5937 =: 6670s: 6679 =—ss« 6 680 
SENVM = 001215 732@ = =—§ 6679 6680 
SEOP 006764 66684 
OPCT gorole 
SERFLG 00110 ry 6670* 6672+ 
X 001115 57324 5886* 6672+ 
RROR 007126 5 66704 
SERRPC 001116 57324 6670* 6671 6784 6790 6792 6794 
RRTB goles? 57324 6671 
SERRTY 007514 70. 66714 
SERTTL 001112 7324 =©6670* 
Sc 001162 37324 65886* 6670 6672+ 
T 001214 57328 
SETEND 001256 5730 57328 
ATAL 001176 57324 6680* 
SFFLG 011706 * 
SFILLC 001156 57324 6679 
SFILLS 001155 57324 6679 
SGDADR go11$0 25358 
SGDDAT 1124 732) =66011* 6022* 6038* 6058+ 6060 068* 6031 6089 6110* 
6121* 6123 6127 6137* 6139 6148* 6150 6173* 6175 6196 
rire oon 6259* 6240" 6241* 6242* 6243 6245* 6251+ 6648 
$GET42 007042 66684 
SGTSWR 010002 66734 6757 
$HD = 1 5686 
SHIBTS 001000 57304 
SICNT 001104 57324 6672* 
SILLUP 012050 14 
SINTAG 007135 7324 = =66673 
ITEMB 001114 5732# 6670* 6671 
F 001172 57324 6670 6673 6679 
SLFLG 011705 * 
SLPADR 001106 7324 =65886* 5940* 6672+ 
SLPERR 001110 5732# =65886* 5944% 6638* 6670 6672+ 
SMADR1 001226 57328 
SMADR2 001252 57324 
SMADRS 001236 57324 
SMALL 601974 a 57324 5886 5937 6670 6672 6679 
$MAMS1 poses 57324 
SMAMS2 0012 57324 
SMAMSS 001234 57328 
SMAMS4 001240 57328 
eet fis. 
010673 $673 
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121 # 6680* 
egos RY gear 
SMSGTY D106 7328 oea0: 
SMTYP1 1 Se # 
SMTYP, id 31 7328 
SMTYP 12355 # 
TYP4 001241 7328 
SMXCNT 007 728 
L 001154 328 $679 
SNWTST= 000001 9404 9784 60074 +4 74 60 60544 60754 61174 61444 61 61904 pig 
394 624608 eee 62424 624 62448 62454 62474 62614 63374 63394 63414 634354 
6 Pe ted 6 4 4 63874 64008 6416# 64334 64664 64914 65284 65554 65708 65864 
SOCNT 010 66754* 
0107 66754* 
SOVER 00771 g67e8 
SPASS 001202 57324 5886* 6668* 6672 
SPASTM 001006 57304 
SPOWER 012056 66814 
SPWRON 011710 5886 66814 
SPWR* 5 012044 66814 
SPWRUP 011762 66814 
SQUES 001170 Ht 4 6670 6673 6679 
CHR 010214 667 6757 
DEC= seeeee 6757 
SRDLIN 010334 66734 6757 
T= eeenee 6757 
$RDSZ = 000010 66734 
007064 66684 
SR2A = eeeeee 6757 
VRE= seeeee 6757 
SSAVR6 012054 66814* 
SC 007450 5886 66724 
E 117 58844 5886 5937 6668 6670 6672 6673 
SSTUP = 177777 58844 
SSVLAD 007660 66724 
SSVPC = 000204 5726# 
SSwR = 167400 56844 5686 5689 5732 5886 5940 5978 6007 601 6036 6054 6075 6096 
6117 6144 6166 6190 6238 6239 6240 6241 624 6243 6244 6245 6247 
6261 6337 6339 6341 6345 6345 6363 6 zg 638 6400 608 6433 6466 
6491 6528 6555 6570 6586 6600 6636 666. 66 6670 667 6681 
SSWREG 001216 57324 5886 
SSWRMK= 000000 5689 6672 
STESTN 001200 57324 943*  6672* g 6790 792 4 
1 oot Het 2856" 5940* 978 6007 6018 6036* 6376* 6387* 6400* 6570*  6668* 6672+ 
STKS 001144 5732 73* 
$™N = 009053 56864 244 59404 59784 60074 6013 60184 6024 60 604 048 60544 6065 
6070 60754 608 6091 6107 6112 61174 6132 6140 61448 615 
61664 6180 618 61904 6201 2508 62384 623 62404 oeete 62424 624 62444 
62454 624784 $673 6 ai 6270 628 6289 6291 635374 63394 63414 6 6 
6353 6357 § 634 6371 6376# 6381 63874 6594 0 6406 64164 643 6446 
rey 64914 5284 65554 6565 6570# 6576 6579 65864 6595 66004 66364 6654 


966 
$TPB 001152 732# 6679 


—ssta tat CC CC! CC OE CLE LL LE LLL EL LLL LL LLL LLL LLL LLL LLL A LLL LLL AA 
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CNIBAA.P11 | 10=DEC=82 15:35 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0066 | 
STPFLG 001157 57328 6679 | 
Tes 901150 57328 6679 
TRAP, 012156 5886, 6757" 
$TRAP2 0101 67578 
TRP = 00001 67578 
STRPAD 01217 7578 
TSTM 001004 7308 
STSTNM 001102 7SeH 5942+ 6668+ 6670 6672" 
STTYIN 01044 66 
TYPBNS Steen U 6757 | 
SIVPDS 010734 66784 6757 | 
TYPE 011160 66794 6680 6757 | 
TYPEC 011372 6673. 66794 | 
SIVPEX 011440 679 
TYPOC 01053 66754 6757 
STYPON 010546 66754 6757 
STYPOS 010506 $6734 6757 
SUNIT 001206 328 
SUNITM 001010 7308 
SUSWR 001220 57328 
SVECT1 001244 57308 5897 
SVECT2 001246 57328 
S$XTSTR 007464 66728 
$$GET4= 66684 
SOFILL 010731 6675#* 
S40CAT= teeeee Y 6670 6672 
. «= 012766 5693" 5704 5705# 5 57108 5713# 5716# 5726" 5728" 5730# 5732" 5886 59378 


70 5 
$068 6670 66714 667 66734 66784 6679 66804 6681 67824 68014 
eSASTA= *eeeee YJ 680 
-$x = 001000 57304 





C 
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'BDT 62114 § 38 66239 48662400 6 241 6242 6243 6244 6245 
SeUMAY 38504 so" 
DFC 57348 $663 5750 5757 5764 #5771 5778 5784 
ECB 38014 396¢ 5 5996 6003 6016 6027 6044 6052 6064 6073 608 6 $106 6115 
6131 614 615 6164 6179 618 6 6209 6238 6239 624 6241 6242 624 6244 
6245 6259 269 6279 6288 6294 633 6339 «= 6341 6343s 35 636 6374 6385 6398 
6410 6427 43 6459 8 6522 6546 6568 6584 6598 661 665 6751 
ENDCOM 15784 57194 
ERC 57864 5959 5964 5993 600 6014 6025 6041 6049 6062 6071 6083 609, 6104 6113 
6129 6141s 6153 6142 617 6186 6198 6207 6238 6¢3 6240 6e41 624 6243 62464 
6245 6254 6267 627 6286 629 6337 6339s 6341s 634306350 0s 358 )=—s_s« 3720s 3820s 395 
6407 = 6425 41 6457 6479 6518 6543 6566 6580 659 6615 50 6719 
ERROR 5719# 5959 5993 6000 6014 6025 6041 6049 60 6071 6083 6092 6104 6113 
6129 6141 6153 6162 6177 6186 6198 6207 6238 6¢ 9 6240 6241 6242 6243 6244 
6245 6254 6267 6277 6286 6292 6337 6339 6341 6343 6350 6358 6372 6382 6395 
6407 6425 4 6457 6479 6518 6543 6566 6580 6596 6615 6650 6719 
ESCAPE 16984 57198 
GETPRI 1312# 57194 
GETSWR 17718 57198 59374 
T 44844 57198 
NEWTST 1626 57194 5940 5978 6007 6018 6036 6054 6075 609 6117 6144 6166 6190 6238 
6239 6240 6241 6242 6243 6244 6245 6247 6261 633 6339 6341s «6343. 6345 6 363 
6376 6387 6400 6416 6433 6466 6491 6528 6555 6570 6586 6600 6636 6662 
21534 5719% 6678 6680 6681 
POPSP2 5812# 5958 5963 5992 5999 6429 6448 6462 6483 6524 6549 6620 6717 
5816# 5968 6168 6422 6438 6452 6471 £6476 6514 6536 6611 
PUSH 1454 27198 6678 6680 6681 
REPORT 54634 57194 
RESV 58244 5933 5934 5935 5936 6431 6445 6449 6464 6485 6526 6551 6621 
SCOPE 57194 5978 6007 6018 6036 6054 6075 6096 #6117 6144 616 6190 6238 6239 6240 
6241 6242 6243 6244 6245 6247 6261 6337 6339 6341 634 6345 6363 6376 6387 
64 416 6633 6466 6491 6528 6555 6570 6586 6600 6636 6662 6668 
SETPRI 12 57194 
SETTRA 67574 
SETUP 13374 57198 5886 
SIGC 62954 6337 6339 6341 6343 
SKIP 17334 57198 6013 6024 6045 6048 6065 6070 6086 #6091 6107 46112 6132 6140 6156 
6161 6180 6185 6201 6206 6238 6239 6240 6241 6242 6243 6244 6245 6253 6270 
6280 6289 6291 6337 6339 6341 6343 6353 6357 6371 £6381 6394 6406 6446 6565 
6576 6579 6595 54 
SLASH 15174 57198 
SPACE 57194 
STARS 14854 57198 5726 5730 5732 5940 5978 6007 6018 6036 6075 = 60 6117 6144 
6166 6190 6238 6239 6240 6241 6242 624 6244 6245 62467 6261 6337 6339 6 
6343 6345 6363 6376 6387 6400 641 643 6466 = 6491 628 6. 6555. Ss_(«6570——s«é65 
66 6662 6668 6670 6671 6673 667 6678 6679 6680 6757 
WRSU =—s--145 7194 5886# 
TRMTRP 16th 
TYPBIN 20884 57194 
TYPDEC 20584 57194 6668 
TYPNAM 18264 57198 5937 
YPNUM 20254 57194 
TYPOCS 19784 5680# 57194 
TYPOCT 19414 57198 6671 6673 
TYPTXT 18944 57198 


ne ee ee oe a + 


a nnn on ee en 


| MAINDEC-11-CNIBA=A MACY11 30(1046) 


CNIBAA.P11 10=DEC=82 15:35 

WARN $6958 $303 6529. 6557 

2721 9704 978  6029# 6036 

SSCMRE afese 

SSCMTM 7328 

SSESCA 17114 57198 

SSNEW en 57198 5940 597 
6¢ 9 6240 6241 624 

7 6387 6400 6 


- SWRHI 1044 56814 5689 
~SWRLO 5689# 

-TRMTR 56 

-SACT1 50644 56834 5726 
-SAPTB 5109% 57324 

-SAPTH 370# 56834 5730 


° mn by ety 6814 5732 
-$0B20 48124 
-SDIV 45874 
- SEOP 22144 5681# 6668 
-SERRO 2700 56814 6670 
-SERRT 28964 56814 6671 
. tT 4523# 

422 56804 6681 
~SRAND 43074 
- SRDDE 35318 
- $RDOC 7974 =§=5679# 
-SREAD 33954 56824 6673 
~$R2AZ 49584 
-SSAVE 396 
-$SB2D 47714 
-$SB20 48744 
~SSCOP 24544 5682# 6672 
-SSIZE 43614 
-SSUPR 49134 
- STRAP 7 56794 6757 
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6571 
66254 


6588 6602 
6636 
6018 603 
244 = 624 
6466 649 
6048 6063 
6238 6239 
6341 6343 


CROSS REFERENCE TABLE <= MACRO NAMES 


SEQ 0068 


nn nr 


' 


[MAINDEC=11-CNIBA-A_ __MACYT1 301046) _15=DEC=82 16:09. PAGE 61-2 
\CNIBAA.P11  10=DEC=82 15:35 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0069 


\. ABS. 012766 000 


ERRORS DETECTED: 0 
Sp eT pee reget ge TOC=CNMAC2.SML,CNIBAA.P11 
RUN-TIME: 16 14 1 SECONDS 


RUN-TIME RATIO: 71/32=2.1 
CORE USED: 33K (66 PAGES) 


